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BASIC ソ ー ス ブッ クス 
パソ コン テレ ビ X 1 ゲー ム プ ログ ラム 


前 書き 

X1 で プロ グラ ム を 作る こと に な っ て , 気が付い た こと で す が , 第 一 
印象 と し て は ,『X 1 っ て 随分 状 沢 な 機械 だ 』 と いう こと で す 。 

一 度 に , あの 機械 , この 機械 と 複数 の マイ コン を 使っ て いる と , "プロ 
グラ ム を 作る , 走ら せる , する と , ピー と 音 が / Syntax error が 出 
る , あれ ? と 思っ て , LIST を 取る 。 す る と 別に お か し い 所 が 見 当ら 
Mem 277 by / そう か , この 命令 は , この 機械 に は 無かっ た 
ASI” と いう こと が 応 々 に し て あり ます が , X 1 を 使っ て いる 間 は 
一 度 も 。 この よう な 状態 に 遭遇 する こと は , あり ませ ん で し た 。 X 1 l, 
国産 の Hu-BASIC を 使っ て いま す が , これ は , 今 ほ と ん どの パソ コン 
に 塔 載 き され て いる , 米国 マイ クロ ソフ ト 社 の BASIC の 良い 所 や , ま 
た それ 以上 に 良い 命令 を 持っ て いま す 。」 こ れ ほ ど 多 彩 な BASIC は , な 
い の で は な いか 」 と 言っ て も 過言 で は な いと 思い ます 。 HARD に し て 
$, 649X299 ドッ ト の フル カラ ー, キャ ラク ター ゼネ レー タ 機 能 , 
AY- 3 -8199 を 使っ た ミュ ー ジ ッ ク 機 能 な どい た れ り つく せり で す 。 
ER, パソ コン テレ ビ と 言わ れる よう に , 今 ま で の パソ ツ コ ン に は 考え ら 
れ な か っ た, TV と コン ピュ ー タ 画面 の 合成 TV チャ ン ネ ル , 音量 の 
コン トロ ー ル , T V 番 組 子 約 な どの 機能 も 盛り だ くさ ん で す 。 た だ 心配 

な の は ,「 こ れ だ け の 機能 の パソ コン を , 使い こなせ る だ ろう か ? 」 と い 
うこ と で す 。 こ れ だ け の パソ コン を TV を 見 て いる だ け で は , も っ た い 
な い / /, 早く 自分 の 思い の まま に 動か せる よう に な っ て 下さ い 。 

思い の まま に 操作 で きる よう に な る た め に は , ど うし た ら 良 いか 7, 
と いう と , まず XX1 に 触り まく る こと で す 。 プ ログ ラム を 入力 する だ け 
で も か まい ませ ん が ,「 こ の 命令 は 。 どう いう こと を し て いる の だ ろう 」 
と いう 疑問 か ら , 1 歩 1 歩 理 解 し て いく も の だ と 思い ます 。 

本 書 は , マイ コン を ちょ っ と か じ っ た 人 , 初心 者 で も 気楽 に 読め る よ 
うに, 各 プ ログ ラム に は , フロ ー チ ャ ー ト (流れ 図 ), 変数 表 . リス ト に 
は 各 ル ー チ ン の 説明 を 加 を まし た 。 ま た , プロ グラ ム は すべ て , 手元 に 
ある マイ コン に か け て テス ト し て あり ます 。 どうぞ , 御 参考 に し て 下さ 
MM 

な お , 出版 に あたっ て は , 工学 図書 の 方 々 に 大 変 お 世話 に な り , E 
に 同社 , 笠原 進 氏 に は , 多大 な 御 協 力 を 得 ま し た , 記し て 感謝 の 意 を 表 


し ます 。 
HART SOFT 


ООС МУ VRE k < TNTE LR. 
熱中 し だ す と 夢中 に な っ て し まい , あっ と いう 間 に 財 布 が 軽く な っ て し 


まい 。 マイ コン で プロ グラ ム を つく る な ら 真 っ 先 に つく ろう と 思っ て い 
まし た 。 プ ログ ラム は 単純 で す が , ゲーム プロ グラ ム を つく る うえ そえ で の 
基本 的 な ルー チン が 多い の で これ か ら プ ログ ラム を つく ろう と いう 人 に 
参考 に な る と 思い ます 。 


1. バリ ケー ド 
ゲー ム の 遊び 方 


この ゲー ム は 自分 の へ ヘビ 較 を あや つっ て 毒 キ ノコ を 食べ た り 壁 や 自分 
自身 に 当たら な いよ うに し て エサ (リン ゴ ) を 食べ て いく ゲー ム で す 。 
毒 キ ノコ は 3 つつ 食べ な いと 死に ませ ん が , スコ ア が 減り ます 。 EHO 
確率 で スペ シャ ル エ サ (ケー キ ) か 出現 し ます 。 これ を 食べ れ ば あっ と 
いう 間 に 1 面 クリ アー で す 。 余裕 が ある 時 は 点数 か せ ぎ の た め に 普通 の 
エサ を 食べ て も 良い で し ょ う 。 エサ を 10 個 食べ る と 1 面 ク リア ー で ボー ナ 
ナス が も ら え そま す 。. 面 が 進む と 段々 スピ ー ド が 上 っ て 行き ます 。 私 は 5 
面 ま で し か 行っ た こと が あり ませ ん 。 皆さん は それ 以上 目指 し て が ん ば 
っ て 下さ い 。 


еее BARRICADE GAME VER 


高 得点 の 取り 方 


スペ シャ ル エ サ が 出 て も 普通 の エサ を 食べ て いく の も 良い で し ょ う が, 
あま り 欲 を は っ て いる と 通る 場所 が 失 く な っ て 自 減 し て し まう こと が あ 
り ま す 。 毒 キノ コ は 3 つ 食 べ る まで 死に ませ ん の で , いよ いよ 危な く な 


っ た ら 毒 キノ コ を 食べ て 道 を つく り ま し ょ う 。 
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1. バリ ケー ド 


変数 表 


P 1% 

S G< = y 

S っ キー 入力 

し 一 食べ た エサ の 数 

D 一 食べ た 毒 キ ノコ の 数 
Rofo Pe AT eo ee 
1 ユル ー プ 用 


H I>a дату 
X 
y へ ビ の X・Y 座標 


XX 


| へ ビ が 進む 向き 
YY 
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1. バリ ケー ド 


1 НКЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 

2 REMx x 

З REMK ФФ BARRICADE GAME VER 1.0 4$ ж 

4 БЕМж x 

5 REMK [CICOPYRIGHT 1983% ЗЯ ж 

é ВЕМЖ ж 

7 КЕМЖ FOR SHARP-X1 BY HEART SOFT x 

8 БЕМж x 

© ВЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 

10 SC=0:L=0:P=0:D=0 — 変数 の 初期 化 
20 CONSOLE 6,25:WIDTH 49 ——— 画面 の 設定 
30 CLICK OFF:CLS!COLOR Z キー の クリ ッ ク 音 を 消す 


40 GOSUB 1098:LOCATEO, 0 
50 PRINT"44é BARRICADE GAME VER 1.0 всоне =з) タイ トル , スコ ア 表 示 
60 PRINT USING “####";SC 

78 COLOR 4 

88 FOR 1-0 TO 38 

98 LOCATE 1,2 :PRINT"H"; 

180 LOCATE I,23:PRINT"H"; 

118 NEXT I 壁 を 書く 

129 FOR 1=2 TO 23 

130 LOCATE 0,1 :PRINT"M@"; 

148 LOCATE 39, 1:РАТМТ" №"; 

158 NEXT I 


168 FOR I=1 TO 56 
176 X= INT «КМО C12X36) +2 ラン ダム に 50 個 壁 を 書く 
188 Y=INT (CRND (1) ж29) +3 
198 IF СНАВАСТЕК$ СХ, Y? <>" " THEN 178 
も 
| 


200 LOCATE X, Y:PRINT"H"; し 空白 で な い 場 合 は や り 直 し 
210 NEXT Г ае 
228 COLOR 7: RAM を キャ リャ ジェ ネ 
238 FOR I=1 TO 59 に する 

248 Х=1МТ (КМО (1) X36) +2 

250 YsINT(RND (12x20) +3 

260 IF CHARACTERS(X,Y><>" " THEN 248 
270 LOCATE X, Y:PRINT"4"; 

288 NEXT I1CGEN 0,-БОМ を キャ リャ ジェ ネ 

290 COLOR 7:CGEN 1 に する 

300 FOR 1=1 TO 10 

310 Х=ІМТ (КМО (1) ж36) +2 

320 Y=INT (КМО 1) ж20) +3 

330 IF CHARACTER$(X, Ү) >" " THEN 316 
340 LOCATE X, Y:PRINT"@"; 

350 NEXT I:CGEN 8 

368 COLOR 7 

370 IsINT(RND 1) X3) 

388 IF 1<>2 THEN 430 

390 X=INTCRND (1) X34) +2 

400 YsINT(RND (1) ж20) +3 

416 IF CHARACTERS(X,Y)<>" " THEN 390 
428 CGEN 1:LOCATE X, Y:PRINT"O"; ECGEN 
430 X=INTCRND て 1)33) +2 

448 YsINT(RND (1) ж20) +3 


毒 キ ノコ を ラン ダム に 50 個 表示 する 


エサ (リン ゴ ) を ラン ダム に 10 個 表示 する 


二 の 確率 で て スペシャル ( ケ ー キ ) を 表示 する 


458 IF CHARACTER$(X,Y)4»" " THEN 436 
468 COLOR 5 р 
478 BEEP:PAUSE S—— —— 0.5 秒 間 の 時 間 待 ち 


488 LOCATE X, У:РАТМТ" №"; 

490 BEEP:PAUSE 5 

500 LOCATE X, Y:PRINT" "j スタ ー ト 時 の 秒読み 
518 BEEPiPAUSE 5 

520 LOCATE X, У:РА1МТ" №"; 

530 MUSIC"O6CCC ":PAUSE 5 


540 XX=(INT(RND (1) ж2) > ^ C- 1) — 進む 方 向 を ラン ダム に 決め る 《X 座 標 の み ) 
550 REM 18 key ШИН 4 つ 左 へ 
568 IF INKEY$(@)="4" THEN XX--1:YYs Ө 6 つ 右 へ 
570 IF INKEY$(0)2"4" THEN XX= 1:YY= 0 = арх may g 
588 IF INKEY$(0)="8" THEN XX» 6:YYs-1 キー 入力 ルー チン саем 
590 IF ІМКЕҮФ (0) ="2" THEN XX» @1YY= 1 

508 Х=Х+ХХ: Ү=Ү+ҮҮІРФ=СНАКАСТЕКФ (X, Y) — 進む 方 向 の 画面 読み 取り 

610 IF Р$="№"ТНЕМ D=3:GOTO 700 at de TZ 

628 IF P$="M"THEN D=3:GOTO 700 BEI 21:46 

630 IF Р$="Ф"ТНЕМ D=D+1!SC=SC-1@:LOCATE 34, 0:COLOR7:PRINT USING "####"3SC: TEMPO 5 
@@:MUSIC“O4COSC":GOTO 700 BX /IK OKIE 

640 IF P*="O"THEN L=1@:GOTO 860 —— ケー キ だ っ た 場合 

658 IF P*="@"THEN L=L+1:GOTO 868 —— リ ン ゴ だ っ た 場合 


--5-- 


バリケード 


660 COLOR 5 
678 LOCATE X, У:РК ИМТ" №"; 


686 FOR 1=8 TO 39@-P59:NEXT I — —— 面 数 に よっ て 時 間 待 ち を する 

&?@ GOTO 558 

788 REM 

716 IF D<>3 THEN 678 ーーーーー 毒 キ ノコ が 3 回 以内 の と き 

728 FOR I=@ TO 1@98:NEXT I ———————— 時 間 待 ち 

786 TEMPO 1086:MUSIC"O4BAGFEDCOSBAGFEDC" —— 死ん だ 時 の ミュ ー ジ ッ ク 


748 LOCATE 0,11 

750 COLOR 7,8 

768 PRINT STRINGS(46x5," ">; ーーーーー 画面 消去 

778 IF HI=<SC THEN $С=Н1 — —— ハイ スコ ア 処 理 
780 LOCATE 8,12 

790 PRINT"GAME OVER 772^» 227291"; P 
888 LOCATE 8,14 メッ セー ジ 出 力 
81а PRINT"t?1h" チョ ウ セ ン シマ スカ ? (Y/N) "; 


820 IS=INPUTS¢(1) 

889 IF I$-"y" OR I$-"Y" THEN RUN | ви bebo - Ap Y—RUN 

846 IF I$-"n" OR ІФ= "М" THEN CLS:END 

8568 GOTO 826 МЕМ 

8 る @ REM 

878 SC=SC+19:TEMPO 196@:MUSIC"O4CDEFGABOSCDEFGABO6C"— エサ を 食べ た ミュ ー ジ ッ ク 


886 LOCATE 34,6 
зей COLOR 7 


?88 PRINT USING "####";5С ———— スコ ア 表 示 

?18 ВЕЕР 

928 IF し =19 THEN 946 — — 10 個 食べ た ら 次 の 面 に 行く 

736 GOTO 658 

94@ REM 

956 TEMPO 860:MUSIC"O4EEREERFFRGGRGGRFFREERDDRCCRCCRDDREEREEERDRDD"— 1 面 ク リア ー し た と 
96@ LOCATE 6,11 き の ミ ュー ジッ ク 
976 PRINT STRING$(4Gx5," ">; 

980 BO=INTCRND C12x10)x168*16 ——; ボー ナス &10—908 Of& Ck 5 


990 LOCATE 8,12 

1808 COLOR 7 

1010 PRINT" 1 メン クリ アー VETS ガブ ドン ドレ! "5 

1828 LOCATE 14,14 メッ セー ジ 出 力 

10328 PRINT" ホ ドー ナス "j 

1040 PRINT USING "&448";BO; 

1950 SCsSC+EO 

1660 FOR I=@ TO 2000:NEXT І ————— 時 間 待ち 

1070 PsP*1:L20:DzO0:YYsQ:XXz0 

1080 GOTO 20 

1998 REM CHARACTER DATA————— ДТ, ケー キ , #x /3, ミカ ン の デー タ 

1100 DEFCHRS (225) *HEXCHR$ ("QQaoQgaaQFFOGFFOQ") +HEXCHRS ("G00018FFFFFFFFFF "> +HEXCHR 
*("040800FFFFOQFFFF") 77-% 

1110 DEFCHR$ (226) *HEXCHR$ (" 0g00000 0000000000") «HEXCHR$C" 187EFFFFéóS181818") +HEXCHR 
*("187EFFFFéó6181818") ^: 

1120 РЕҒСНЕ%Ф (224) =НЕХСНКФ ("0000000000000000") +HEXCHRS (" O03C7EFFFFFF7ESC") «HEXCHR 
*("1800000000000000") “алу 

1198 RETURN 


E] [CJCOPVRIGHT 1983 HEART SOFT ШЕШ 


THINKING GAME PART] は オセ ロ ゲ ー ム で す 。 こ の プロ グラ 
ム は あま り 強 く あ り ま せん 。 じ っ くり 腰 を すえ て 戦え ば 勝て ます し , А 
歌 ま じ り に 戦っ て いる と 負け る か も し れ ま せん 。 コ ンピュータ ー の 手 を 
決め る の に は , 盤面 の 評価 法 を 使用 し て いま す 。 こ この デー タ を 変更 す 
れ ば コン ピュ ー タ ー の 先手 を 変え る こと が で きま す 。 以下 に 画面 の 評価 
率 を の せ て お きま す 。 


1 2 3 4 5 6 7 8 
1 8 --2 2 1 1 2 =2 8 
2 2 6 1 L =1 s= —8 =2 
3 2 €] 2 1 1 2 o 2 
4 L =] 1 0 0 I =i 1 
5 L =f 1 0 0 L — 1 
6 2 == 1 2 1 1 2« —1 2 
TIT -—6 егі 1 1 1 6 2 
8 8 = 2 1 1 2 2 8 


この プロ グラ ム で コン ピュ ー タ ー は 30 秒 一 1 分 で 打ち 返し て きま す 。 
私 は コン ピュ ー タ ー に パー フェ クト で 勝ち まし た 。 
ー7 一 


ゲー ム の 遊び 方 


まず 先手 か 後手 か み を た ず ね て 来 ま す 。Y ま た は N を 押し て 下さ い 。 先 
Tk dn, 後手 な ら 青 石 が あな た の コマ で す 。 コマ の 置き 方 は X 座 標 
・Y 座 標 の 順に 入力 し て 下さ い 。 

入力 を 間違え た と き は , カー ソル コン トロ ー ル キー で 戻し て 下さ い 。 
64 手 を 打ち 終る か パー フェ クト ゲー ム に な れ ば , ゲー ム オ ー バ ー で す 。 
パー フェ クト 勝ち を 目 差 し 頑張 っ て 下さ い 。 


@@@ OTHELLO GAME V1.0 éte 


セン チ ナチ ヴ kUZ29? (YES/NO) 


ШЕЕ CCICOPYRIGHT 1963 HEART SOFT NEN 


変数 表 


X 0 


Е C 4 つ 指 し 手 に あっ て いる か どう か を 示す フラ グ 
оњ Фох, YEE 
Y 6 


B (n, m) 一 盤 の デー タ 

B 9 一 黒石 の 数 Q (n) 一 裏返し する 時 の 作業 用 

W 9 っ 白石 の 数 X (n), У (n) つ 作業 用 

N つ 何 手 目 か を 指す 604 で ゲー ム オ ー バ ー D (n) つ 盤 面 の 優先 順序 を 格納 する と ころ 
D っ パス を し た と き の フ ラグ AJ, 後手 用 


2. オセ ロ ・ ゲ ー ム 


@@@ OTHELLO GAME V1.0 eee 


1 
3 
E 
© 
в 


ШЕН CCICOPYRIGHT 1983 HEART SOFT um 


éte OTHELLO GAME V1.0 4499 


0 < の Uu + @ N = 


2. オセ ロ ・ ゲ ー ム 


OTHELLO GAME・ フ ロー チャ ー ト 


ゲー ム オ ー パ ー 
初期 ルー チン 


盤面 デー タ 
の 読み 込み 


コン ピュ ー タ 
が 多い か 


あな た の 手 を 
入力 する 


X = t 
お ける か どう か 
の 判定 


2. オセ ロ ・ ゲ ー ム 


КЕМж ENE OTHELLO GAME V1.0 ШШШ 
[CJCOPYRIGHT 1983 ЗЯ 


РЕМЖ FOR SHARP-X1 BY HEART SOFT 


904ол ымы 
> 
š 


18 CONSOLE @,25:WIDTH 40:CLS 

20 COLOR 7 

38 LOCATE 6, 0:PRINT"44$ OTHELLO GAME U1:0 еже"; タイ トル 表示 

48 LOCATE 0,24:PRINT" MEN [CICOPYRIGHT 1983 HEART SOFT ШШШ"; 

50 DIM B(10, 102,0 (8), X(8), Y (8), RCBD , P C60) 

68 В (4, 4) =-1:В (5,52 =-1:В (4, 5) 21:8 (5, 4) =1 

78 Ts-1:N-0:40-2:B8-2 

88 FOR 1=1 TO 8:READ ХІ), УСТ :МЕХТ I т : 

98 БАТА 9,-1,1,-1,1,0,15 1» 0 15-15 1, -15 Oy -1, -1 | 初期 デー タ の 読み 込み 

100 FOR 1-1 TO 60:ВЕАО PCI〉:NEXT I 

118 LOCATE 8, 12:РВ 1МТ"#578 トリ マス カ ? (YES/NO)"; 

120 I$=INPUT$(1) 先手 , 後手 の 入力 

130 IF 1%="у" OR I$="Y" THEN A=-1:GOTO 160 (A= —1)(A=1) 

140 IF ІФ="п" OR I$="N" THEN A=1 :GOTO 168 

150 GOTO 120 

160 COLORS:CLS 

179 GOSUB 880 wm 

188 IF А=-1 THEN 240 X1 の 番 の と き の メ ッ セ ー ジ 

198 IFA=1THEN LOCATE20, 15:PRINT"X1 ("j:COLOR2:PRINT"8"; :COLORS:PRINT")7 М 255 Za" 

208 IFA--1THENLOCATE20, 15:PRINT"X1 (";:COLORi:PRINT"9";:COLORS:PRINT")/ n* 22% Ra" 

218 GOSUB 560:GOSUB 788:N-N*1 

228 IF N-ó0 OR B0=0 OR MM9=9 THEN 390 

238 T--T:GOSUB 888 

248 IFA-1THEN LOCATE2Q, 15:PRINT"772 (" ; : COLOR 1 t PRINT" 8" ; COLORS: PRINT") / н 
) 


60 手 終っ た か 白 か 黒 が 0 に な っ た ら ゲ ー ム オー パー 


258 IFA--1THENLOCATE20, 15 :РЕ1МТ "778 ("j :СОСОК2:РКІМТ" 8"; : COLORS:PRINT")7 N° 25" Ra" 
268 REM us NE 
7270 LOCATE 20, 16:PRINT"h* コ ニ オ キマ スカ X,Y"; あな た の 番 の と き の メ ッ セ ー ジ 
288 IS=INPUTS(1):IF 1%="Р" OR ІФ="р" THEN 240 ELSE IF 1 まく "1" OR I$>"8" THEN 288 
290 YO-UAL(IS):PRINT Үй; 

300 ІФ=ІМРОТФ (1) :1Е I$2"P" OR I$="p" THEN 360 ELSE IF I$4"i1" OR 1$>"8" THEN 386 
310 X0-UAL(IS):PRINT ХӨ; 


320 IF D=1 THEN 398 手 を 入力 する , P は パス 

330 GOSUB 6 る 59: IF C4--1 THEN 376 数 字 は 1 一 8 まで て, それ 以外 は 無視 
348 B(X8,Y8»-T:GOSUB 780:G0SUB 888 

358 N-N*1:IF N= る @ THEN 398  ----- 60 手 指し 終え た と き の 和 判定 

368 T=-T:GOTO 198 

378 ВЕЕР 


388 LOCATE 26, 17:РЕТМТ "var オケ マセ ン "sFOR I=0 ТО 1580:NEXT I:60TO 260 — 入力 ミス は や り 直 し 
390 GOSUB 889 

408 IF A=1 AND W8<BÖ THEN 490 

418 IF A=-1AND W6»B8 THEN 498 

426 REM 

438 LOCATE 20,12:PRINT "773, p#>" л" 

440 LOCATE 20,13:PRINT "z21h*TPU?TZ22Y/N"; 

450 І%=1ІМРОТФ (1) 勝っ た と き の ル ー チ ン 
460 IF 1%="у" OR I$z"Y" THEN RUN 

470 IF I$-"n" OR I$-2"N" THEN CLS:END 

488 GOTO 458 

496 КЕМ 

500 LOCATE 20,12:PRINT "Хі / カチ テテ ドス ョ リ " 

510 LOCATE 20,13:PRINT "=? 1к“ РУУАЛУИМ"; 

520 I$sINPUT$(1) 負け た と き の ル ー チ ン 
530 IF 1%="у" OR I$s"Y" THEN RUN 

540 IF I$z"n" OR ІФ= "М" THEN CLS:END 

556 GOTO 520 

540 REM 

570 FOR E=1 TO 60:7=Р (Е) 1X02INT(Z/10) 1 YG=INT (2-1 жх) 

586 GOSUB 650 


590 IF C4=1 THEN 620 コン ピュ ー タ ー が 手 を 考え る 

る 99 NEXT E 

618 LOCATE 20, 16:PRINT "ХІ ñ 2932, "ID=1EN=N-1ERETURN | コン ピュ 
428 LOCATE 20, 1 る iPRINT "Xi № "jIPRINTUSING"A"; YO T PRINT") "j tPRINTUSING"M";XQ:| ター の 
630 PRINT "= ウチ マシ 2。"iFOR 1-0 ТО 1588:NEXT I 打っ た 所 
640 B(X0, YO) =T:D=0: RETURN iS 
650 REM を 表示 す 
660 С4=-1:1Е В(Х0,Ү02<>0 THEN RETURN ) る 


オセ ロ ・ ゲ ー ム 


670 8S=9iFOR Ізі TO 8iK=9iQ(1〉=9 
680 X1=X0+X(I):Y1=Y0+Y(I> 
698 IF <(Х1282%<Х1<12%<Ү1>82%<Ү15<12 THEN 750 


700 IF B(X1,Y1220 THEN 758 A = ET 
718 IF BCX1,Y1) =T THEN 748 指し 手 が 合っ て いる か 判定 する ル チン 
720 K=K+1:X1=X1+X(I):Y1=Y1+Y(I) B(X1, Y1) に 盤 の デー タ が 入っ て いる 


738 GOTO 698 

748 Q (I)=K:S=S+K 

750 NEXT I 

760 IF 5-8 THEN RETURN 

770 C4=1:RETURN 

788 REM 

796 FOR Ісі TO 8:IF Q(I)=0 THEN 830 
800 X1=X0+X(I):Y1=Y0+Y(I):L=Q (1) 
810 FOR J=1 TO L:B(X1,Y1)=T 


820 X1=X1+X(I):Y1=Y1+Y(I):NEXT J コマ を ひっ くり 返す ルー チン 
838 NEXT Ii:B9=9:M9=9 

840 FOR I=1 ТО 8iFOR Js1 TO 8 B(J)= 1 の と き は 青 石 
850 IF B(I,J)=-1 THEN в@=Ве+1 BU, J)=- 1 の と き は 赤石 


8 る 9 IF B(1,J>= 1 THEN H0=H0+1 

870 NEXT J:NEXT I:RETURN 

880 COLOR7:LOCATE 6, В: РАТМТ "ФФ OTHELLO GAME V1.0 $$$"; 
890 LOCATE 0,24:PRINT" ШЕН ІСІСОРҮКІОНТ 1983 HEART SOFT ШШШ"; 
900 COLOR 5 

910 LOCATE 4, З:РА1МТ"1 2 З 4 5 6 7 8":PRINT 

926 COLOR 7 

930 PRINT" Tr “5 13 PRINT 

940 FOR 1=1 TO 8:COLOR S:PRINT I;:COLOR 7:РКІМТ" |"; 

950 FOR J=1 TO 8 

960 IF BCI, J>=1 THEN COLORi1:PRINT"$9";:COLOR7!PRINT"|"; 
$70 IF BCI, J)=-1 THEN COLOR2:PRINT"&";:COLOR7:!PRINT"|";j 
988 IF B(I,J?z0 THEN PRINT". “j” |"; 

990 NEXT.J:PRINT 


1000 PRINT" トー トー ナー トト トイ "EPR INT 画面 表示 
1010 NEXT I 
1828 LOCATE 0,21 


1040 LOCATE 31, 6:COLOR2:PRINT" е"; : COLORS:PRINT" 227"; 

1858 LOCATE 31,7:PRINT Ве; "2" 

1068 LOCATE 31, 9:COLOR1:PRINT"6"; :COLORS:PRINT"/27"; 

1970 LOCATE 31, 101PRINT МӨ; "2" 

1080 FOR K=12 TO 20 

1098 LOCATE 20,К 

1100 PRINT 8РАСЕФ(199; 

1110 NEXT K 

1120 RETURN 

1130 DATA 11,18,81,88,13,31,38,83, 16,61, 68, 86 

1146 DATA 33, 34, 63, 66, 14, 41, 48, 84, 15, 51, 58, 85 _ 
1150 DATA 34, 35, 43, 46, 53, 54, 64, 65 Вокам – 2 
1168 DATA 23, 24, 25, 26, 32,37, 42, 47, 52, 57, 62, 67, 73, 74, 75, 76 

1178 DATA 12, 17,21,28, 71,78, 62, 87, 22, 27, 72, 77 

1180 END 


これ も , また 有名 な ゲー ム な の で 知ら な い 人 は , に みい の で は ? Z 


れ は 後 の パ ッ ク マ ン , ロッ クン チェ イス な どの 原形 と な り , 発展 型 の ロ 
ー リ ング クラ ッシュ な ど が あり ます 。 判 定 で は 大 きく 画面 を 皿 つ に 分 
け て 行ない まし た の で , 打ち 込み は 1 つ 打 て ば , あと の 3 つ は スク リー 
ン エ デット で 行なえ ば 速く 打ち 込め ます 。 また , コー ス を 表示 する ルー 


チン も , うま く ス クリ ー ン エ デ ッ ト を 活用 し て , 簡単 に 打てる よう 工夫 
し て 下さい 。 


8. ヘッ ド ・ オ ン 
ゲー ム の 遊び 方 
この ゲー ム は 自分 の 車 " 青 車 " を 操っ て , MFO “ 赤 車 "に 当たら 
な いよ うに し て , ドッ ト "o" を すべ て 消す ゲ ダーム で す 。 移動 に は 2 ・ 
4・6・8 の キー を 使い 、。 ス ペー スキ ー が アク セル で す 。 何 も 押 さ な け 
れ ば 相手 の 車 と 同じ し スピー ド で 移動 し ます 。 自分 の 車 は 1 度 に 1 コー ス 


また は 2 コー ス 移 動 で き , 相手 は , 1H, 3 面 は 1 コー ス , 2h, 4H 
以上 は 2 コー ス 移 動 し ます 。 そし て 3 面 以 上 は 相手 が 2 台 に な り ま す 。 


座標 


画面 の コー ス 


高 得点 の 取り 方 


この ゲー ム は 相手 の 車 よ り 早く 移動 で きま す が , 一 度 コ ー ス の 中 へ 入 
っ て し まえ ば 出口 に 行く まで コー ス 変 更 は で きま せん 。 相 手 に 先 に コー 
ス 変 更 を さき せれ ば いい の で す 。 偶数 コー ス を 先 に すべ て 消し , 後 か ら 奇 
数 コー ス を 消せ ば , 以外 と うま く 行 く よ う で す 。 一 面 ク リア すれ ば , Ж 
ー ナ ス 点 が も らち えま す 。 


8. ヘッ ド ・ オ ン 


変数 表 


P 
M 


X, Y つ 自分 の 車 の X, УЖ 
S, 上 一 敵 の 車 の X, YER 

K つ 自分 の 車線 

ХХ, YY, SS, LL つ 仮 変数 
E つ っ スコア 

CHL Hi ft 


IT ユル ー プ 用 


R 
R 
R 


R 
R 


WANKUADNE 


КЕМж 


ЕМж 


ЕМж 


КЕМж 


ЕМж 


ЕМж FOR SHARP-X1 BY HEART SOFT 


ЕМЖ 


$449 HEAD ON GAME VER 1.0 222 


3. ヘッ ド ・ オ ン 


КЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


[CICOPYRIGHT 1983 ЗЯ 


ххххххх 


CONSOLE @,25:WIDTH 40:С16 

GOSUB 1570:Н-2000 

E=6:N=5:D=5:CLICK OFF クリ ッ ク 音 を 消す 

GOSUB 288 
Psi:Rsi1:UsÜ:Kz1:C21:9218:X-21:Y-22:L 222: 1-0 


50508560 


ОФ=СНАКАСТЕК% (S, L? 
Н$=СНАРАСТЕК$ (37-5, 23-L> 


CGEN 1 


ーーーー RAM, CG に する 


100 LOCATE X, Y:COLOR 7 

118 IF P=2 OR P=4 THEN PRINT#@ CHR$(1); ELSE PRINT#@ CHR$();— — 自分 の 車 の 表示 

120 LOCATE S,L:COLOR 7 

130 IF R22 OR R=4 THEN PRINT#@ CHR#(3); ELSE PRINT#@ СНЕФ (4) ; — 06 07 

148 IF D>1@ THEN LOCATE 3?-S,23-L:IF R=2 OR R=4 THEN PRINT#@ СИКФ (3) ; ELSE PRINT 


#0 СНЕЖ (4); 


150 
160 
176 
186 
176 
266 
216 
22 
236 
244 
256 
266 
276 
280 


3 面 以降 は 敵 を 2 台 出す 


ХХ=Х: YY=YiSS=Si し し = し 

CGEN @ ROM, CG に する 

ON P GOSUB 220, 788, 788,856 一 ーーー 自分 の 車 を 表示 する ルー チン へ 
IF X=S AND Y=L THEN 1220 一 一 一 一 一 一 ぶつ か っ た か どう か の 判定 


IF D>19 AND XK=39-S AND Y=23-L THEN 1226 


3 面 以降 の 判定 


I=I+1: IF INKEY$(0)=" "ú ANO 1>2 AND 94170 THEN Is0:GOTO 228- 一 スペ ー ス キー を 押し て いる 


ON В GOSUB の 46,1919,1989」115qーー 一 一 敵 の 車 を 表示 する ルー チン へ と き は 加速 する 
IF X=S AND Y=L THEN 1220 


IF D>1@ AND X=39-S AND Y=23-L THEN 1228 

IF Ув181 THEN 1440 — 1 面 ク リア ー し た か どう か 
IF ІМКЕҮФ (0) <>" " AND 951702 THEN FOR 1=1 TO 50:МЕХТ І —— 残り ドッ ト が 10 個 に な っ た 
LOCATE 39-58, 23-LL ICOLOR 7:PRINTkIS; ら 敵 も 加速 する 
LOCATE ХХ, YY:PRINT" ";:LOCATE SS,LL:PRINTU$;:GOTO 70 
COLOR 7 И 

PRINT СНЕФ (11); | 
PRINT ги" 

PRINT" | LJ > Ф Ф ~ Ф Ф Ф Ф Ф Ф Ф Ф ° ° ж. ІР 

PRINT" |° —— — "F  — n n Ph: I" 

PRINT" | | Ф Ф Ф Ф е Ф Ф Ф Ф る Ф を * Ф | pe 

PRINT" 1%1|% ーー --------2121" 

PRINT" | | | ° Ф LJ Ф Ф Ф Ф Ф Ф Ф Ф Ф 1 | ШЫ 

PRINT" 1* 1° |9 ーー ||" 

PRINT’ | | | 1 * * * + * же Фу ү q qa 
PRINT" 1° °°°? —— — | ——————3À* iti" 

PRINT* 1 1 1 11i1**** ил 
PRINT" |*|*|*|* °> —— — nTFÉ I° |* |* I° | " 

PRINT" | | HI-SCORE | |" | ユース ま カ 
PRINT" | | SCORE i j* 

PRINT" ||| |* |" 

PRINT" | | | l | Ф Ф е - © - < * | | | | [* 

PRINT" [° |* 1 に ーーーーーーーー — t |° [° |° |" 

PRINT" | 1 | | e . е > > > Ф Ф * Ф | | l ad 

PRINT" I° 1° |°? —————— —— ° | 1° |" 

PRINT" | | | > > > Ф е Ф Ф Ф る е е е | l ]^4 

PRINT" 1* 1* ーーーーーーーーーーー ----------2121ү 

PRINT" | | ° Ф е LI Ф Ф 2 Ф е > > LJ る Ф | {ы 

PRINT" |“ 

PRINT" | Ф * © ° Ф Ф Ф * Ф < е Ф * LJ る Ф |" 

PRINT" t————— l " | 

IF N=1 ТНЕМ RETURN 

RETURN 

SOUND7, 255 

MUS IC"054^804 

E=E+D 


LOCATE 21, 12:COLORS:PRINTUSING'"HHHIE";E; 1 IF E>H THEN H=E スコ ア の 表示 
LOCATE 21, 11:COLORS:PRINTUSING "##### ІН) まり = り + 1 

RETURN 

X=X+1 

IF CHARACTERS (X, Y)="°" THEN 560 ーー 得点 を 加え る 

IF CHARACTERS (X, Y) =" |" THEN «2X-11Pz2:RETURN— 壁 に 当っ た と 

IF X419 OR Х>26 THEN RETURN & 自分 の 車 の 1 コース 用 


ヘッ ド ・ オ ン 


GOSUB 1496 

IF ІМКЕҮФ 0) ="8" AND К<5 THEN ее! コー ス 変 更 
IF ІМКЕҮФ (0) ="2" AND K>1 THEN К=К-1:Ү=Ү+2 

RETURN 


Y=Y-1 
IF CHARACTER$ (X, Y2="*" THEN 550 
IF CHARACTERS (X, Y) 2"—" THEN Y=Y+1:P=3:RETURN 


IF \<11 OR Y>12 THEN RETURN 2 コー ス 用 


GOSUB 1478 

IF INKEY$60»2"4" AND K<S THEN KzK*1:X2X-2 
IF INKEY も (9)=" る 6" AND K>1 THEN К=К-1:Х=Х+2 
RETURN 


786 X=X-1 


IF CHARACTER$(X, Y) 2"*" THEN 560 
IF CHARACTERS (X, Ү) =" |" THEN X-2X*1:P24:RETURN 


IF X<18 OR X>19 THEN RETURN 3 コー ス 用 


GOSUB 14 ァ 9 

IF INKEY も 9) ="8" AND K>1 THEN Кек-1:Ү 
IF ІМКЕҮФ (0) ="2" AND К<5 THEN KzK*1:Y 
RETURN 


2 
+2 


868 Y=Y+1 


IF CHARACTERS (X, Y) 2"*" THEN 540 
IF CHARACTERS (X, Y)2"—" THEN YzY-1:P-1:RETURN 


IF Ү<11 OR Y>12 THEN RETURN 4 コース 用 


60508 1496 

IF INKEY$(0)="4" AND K>1 THEN К=К-1:Х=Х-2 

IF INKEY#¢(@)="6" AND К<5 THEN К=К+1:ЖХ=Х+2 
RETURN 

бз5-1 

IF СНАВАСТЕК% (5,1) =" |" THEN 5=5+1:К=2:РЕТУКМ 


IF (0=10 OR 0>15) AND S=29 THEN 780—2, 4 面 以降 は 敵 を 〉 疫 の 車 の 1 コー ス 用 


IF S<>18 THEN RETURN 2 コース 移動 させ る 
IF K>C THEN C=C+1:L=L-2 | コー ス 変 更 

IF K<C THEN C=C-1:L=L+2 | 自動 的 に 自分 の 車 の コー ス へ 
RETURN 

LsL-1 

IF CHARACTERS(S,L)="—" THEN LsL*1:R23:RETURN 


IF (D=16 OR D>15) AND L=12 THEN 1658 2 コース 用 


IF L«»11 THEN RETURN 
IF КОС THEN C=C+1:S=S+ 
IF K<C THEN C=C-1:S=S- 
RETURN 

5=5+1 

IF СНАРАСТЕК$ (5,1) =" |" THEN 5=5-1:8=4: RETURN 


мт 


IF (0=16 OR D>15〉 AND 5-20 THEN 1126 3 コー ス 用 


IF 5<218 THEN RETURN 
IF КОС THEN C=C+1:L =L +2 
IF K<C THEN CsC-1:L-L-2 


IF CHARACTERS ¢(S,L9="—" THEN L=L-1:R=1:RETURN 


IF 〈D=19 OR 0>15) AND L=12 THEN 1190 4 コー ス 用 


ТЕ L4»11 THEN RETURN 

IF КОС THEN C=C+1:S=S-2 

IF К<С THEN C=C-1:S=S+2 

RETURN 

COLOR 2 

LOCATE X-1,Y-1:PRINT'»oxx"; 

LOCATE X-1,Y :РВІМТ"жжж" ; 爆発 表示 
LOCATE Х-1, Y+1:PRINT "KK"; 

FOR 22-0 TO 50 

SOUND 9, 24:SOUND 1,16 

SOUND 2,72:SOUND 3,8 

SOUND 4,82:SOUND 5,6 

SOUND 4,11:S0UND 7,&HCC 爆発 音 
SOUND 8,16:SOUND 9,16 

SOUND 10, 16: SOUND 1 1, 240 

SOUND 12, 38: SOUND 13, 6 

NEXT:PAUSE 25 

N=N- 1 

IF N»0 THEN 49 — — — — 車 が 残っ て いれ ば 戻る 
COLOR 7 

LOCATE 14,9 :PRINT" GAME OUER "; | ゲニ ム オ ニー 
LOCATE 10, 14:PRINT" TRY &GAIN(Y-ND? " 


1580 


IS=INPUTS (1) 


IF I$-"y" OR I$-"Y" THEN За } キー スカ Y つ RUN 
IF I$="n" OR I$-"N" THEN CLS:END 

GOTO 1400 МЕМО 
ВЕМ 

MUSIC"CE" 

FOR Ізі TO 19:GOSUB 580 

MUSIC"CE" 1 面 ク リア ー ど き の ボ ー ナ ス 
NEXT I:D=D+5:PAUSE 25:GOTO 48 

КЕМ 

SOUND 0,34:S0UND 1,0 


SOUND 2,52:SOUND 3,6 

SOUND 4,44:SOUND 5, 8 

SOUND 6,12@:SOUND 7,&HC7 コー ス 変 更 用 の 音 
SOUND 18, 15: SOUND11, 60 

SOUND12,4 :SQUND 13,4 

RETURN 

REM CHARACTER DATA 


DEFCHR® (1) =НЕХСНК$ ("BDFFBDSCSCBDFFED "> +HEXCHRS ("8090006609064000"> +HEXCHRS ¢ 


"9999999999999999") 


1590 DEFCHRS (2) =HEXCHRS ("“E742FFFFFFFF42E7 "> +HEXCHRS С" В0900000000000000") +HEXCHRE ‹ 


"B80000800000000000") 


1680 DEFCHR% (3) =HEXCHRS (" 0000000000000000") +HEXCHRS ("BDFFBD3C3CBDFFBD " > «НЕХСНКФ< 


"0000000000000000") 


1610 DEFCHR も (4) =НЕХСНК$ ("0808008 008080000800") *HEXCHR$ ("E742FFFFFFFF42E7") +HEXCHRS ( 


"ггвввовгававвввавв"> 


1626 


RETURN 


REM 文 に つい て 


“—=—=———-———=—ы—=—————— 


悪い の で す が …… 


文 を 置く こと が で きま す 。 
(Bl) 10 CLS ' ガ メン クリ ア 


で ぜ き ます 。 

( 例 ) 100 GOSUB 5000 メイ ン ル ー チ ン へ 
RETURN 文 の 後に は または: REM か 必要 で す 。 
( 例 ) 100 RETURN’ "メイ ン ル ー チ ン へ 


—————M— M ee 


Hu-BASIC で は ' と REM は 同じ 働き を し ます 。 LOL?’ は 中 間 
す と , ЗА, 27 と な っ て お り , 2 バイ ト か か り ま す (3А : 27°), HES 
REM は 1 バイ ト で すむ の に 比べ , 1 バイ ト で す が メ モリ ー 効 率 が 悪い こと に 
な っ て いま す 。 も っ と も , КЕМ 文 を 使用 し て いる こと 自体 が メモ リー 効率 が 


に 直 


Hh, ' に は : が 含ま れ て いる の で , プロ グラ ム の 後に ,。 ` を つけ ず に REM 


また , GOSUB, GOTO な どの 後に は , 何 も つ けず に REM 文 を 置く こと が 


な お , REM 文 の 後に マル チ ス テー トメ ント て で 文 を 書い て も 無視 され ます 。 


%5..-----------------2--------------------------------------------------- 


3. ヘッ ド ・ オ ン 


BSS ӘЗ 


k < 


エー シー・ デ ー シ ー 


つら ひひ SHARP-Ki ACEY DUCEV VER 1.0 000 


910» ағы 


オヤ ャ J リ カート“ 了 ナ ター トマ ど ク リリ ノート“ 


ЕНЕ CCICOPYRIGHT 1909 BY 


この ゲー ム は 古典 的 な 賭け トラ ンプ ゲ ダーム で す 。 カジ ノ で 有名 な ラス 
ベガ ス に も , この ゲー ム が ある そう で す 。 カジ ノ で 大 負け すれ ば 財産 を 


無く し , 身 で る み は が され て し まう 人 も 中 に は いる そう で す が , 


(à 


は いく ら 負 け て も , あな た の 財産 の 一 部 で ある マイ コン を 取ら れる こ 


fx 


は あり ませ ん 。 安心 し て お 遊び 下さ い 。 も っ と も いく ら 勝 っ て も お 人 金 は 


ゲー ム の 遊び 方 

この ゲー ム は と て も 単純 な も の で す 。 単純 だ か ら こ そ , ゲー ム が や り 

や すく , 人 々 が 熱中 する の か も し れ ま せん 。 日 本 の 丁半 バク チ が いい 例 

C$, まず, 親 の カー ド が 2 枚 表示 きれ ます 。 その 2 枚 の カー ド の 外 を 

引け ば あな た の 負け , 内 な ら あ な た の 勝ち で す 。 親 の カー ド を 見 て か ら 

賭け 金 を 決め る こと が で きま す の で , 慎重 に 賭け て 下さ い 。 も し , 同数 

の カー ド が か が 出 た 場合 は マー ク の 強い 方 が 勝ち で す 。 ク ラブ , FAV, ^ 

ー ト , スペ ー ド の 順に 強い こと に な っ て いま す 。 勝っ て も 負け て も 10 円 
場代 を 取ら れ ま す 。 


éte ЗНАКР- Хі ACEY DUCEY VER 1.8 669 
„409900 mr*2. 
25»? 180 


〆 デ クリ リー| 


RETS オシ ナウ ター ダサ ィ 


NE CCICOPYRIGHT 1983 BY HEART SOFT ШЕШ 


高 得点 の 取り 方 


親 の カー ド の 間 に 入 る 数 が 多けれ ば 多い ほど 有利 な の で , 親 の カー ド 
D, 1, K な どの と き は チャ ンス で す 。 多く 賭け まし ょ う 。 6, 8 な ど 
の 場合 は 勝ち 目 が あり ませ ん , あき ら め ま し ょ う 。 


変数 表 


X 
| トラ ンプ の 表示 用 の X 座 標 。 Y 座 標 
Y 


S っ 持ち 金 

K つ 賭け 金 

I $ っ キー 入力 用 

P1 一 P13 っ カー ド の 数 
M1 一 M 4 っ マー ク の 種類 


te SHARP-X1 ACEY DUCEV VER 1.0 @@@ 


LEA IY 59 mn?*2,. 
(25 py22zp? 58 


7+9) ђ- 


だり の 1 | ャ ほ マ スズ て ザン N) 


NE CCICOPYRIGHT 1983 BY HEART SOFT ШЕШ 


4, エー ジー デー シー 
1 КЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
2 REMx * 
З REMK 44$ ACEY DUCEY VER 1.0 tète ж 
4 КЕМЖ * 
5 КЕМж [CICOPYRIGHT 1983% 3 月 ж 
6 КЕМж ж 
7 REMK FOR SHARP-X1 ВУ HEART SOFT ж 
8 БЕМж ж 
$9? КЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
18 S=1999:CONSOLE @,25:WIDTH 48 —— — —— S は 持 金 
20 CLS:COLOR 7:PRINT" 444 SHARP-X1 ACEY DUCEY VER 1.0 $$$"; 
38 LOCATE 9,23 
40 РКІМТ "Ш (CICOPYRIGHT 1983 BY HEART SOFT ШШШ"; 画面 出力 用 
58 LOCATE 0,5:COLORé:PRINT" オォ ヤノ カー ト ヾ アナ タ ノ カ ー ト ヾ メグ クリ ノ カ ー ト * "j 
óð Р1і=ІМТ «ЕМО (1) ж13) +1 1 枚 目 の 数 字 
70 M1=INTCRND (1) жд) +1 ーー 一 一 1 枚 目 の マー ク 
88 IF Mi=1 OR Mi-4 THEN COLOR 1 スペ ー ド か クラ ブ の と き は 青色 親 の 第 
90 IF Mi=2 OR Mi=3 THEN COLOR 2 —— ダイ ヤ か ハー ト の と き は 赤色 カー ド 
108 Ха5 !Y=7 
110 ON Рі GOSUB 446, 558, 666, 776, 880,990, 1100, 1210, 1320, 1430, 1540, 1650, 1760 
128 LOCATE Х%3,Ү%4:0М M1 GOSUB 1874, 1880, 1890, 1708 —— 各 カ ー ド 表示 ルー チン へ 
138 Р2=1МТ (ЕМО (1) ж13) +1 ーーーーー 2 В の 数 宇 P 1 に 数 字 が 入っ て いる 
140 M2-INT(RND (1) 4)+1 ——————— 2 枚 目 の マー ク 
150 IF M2=1 OR M2=4 THEN COLOR 1 親 の 第 2 
160 IF M2=2 OR M2=3 THEN COLOR 2 . カー ド 
178 IF M2-M1 AND P2-P1 THEN 130 も し 第 1 カー ド と 同じ し なら や り 直 し 
180 X=15:Y=7 
190 ON P2 GOSUB 446,556, 668, 776, 886, $96, 1100, 1210, 1320, 1430, 1540, 1650, 1750 
200 LOCATE X*3,Y*4:0N M2 GOSUB 1870, 1880, 1890, 1908 
210 LOCATE 10,2:COLOR る 
220 PR INT "モチ キン DN "iS; "円 テテ ス 。 "5 
236 LOCATE 16,3:COLOR 6 
240 PRINT"475 カケ マス カ "} 
250 INPUT KiK=INT(K) ———————— ФОА) 
268 IF K<1 THEN 230 -ーーーーーーー 賭 金 が 1 より 小さ い 場合 は や り 直 し 
270 IF K>S THEN 230 ————— — — 賭 金 が 持 金 よ り 大 きい 場合 は や り 直 し 
280 P3=INT(RND (12x13) «1 ーー 3 枚 目 の 数 字 
298 МЗ=ІМТ (КМО (1) жа) +1 ———— ———— 3 枚 目 の カ ー ド 
306 IF M3=1 OR M3=4 THEN COLOR 1 
316 IF NM3=2 OR M3=3 THEN COLOR 2 е 
320 IF P3=P1 AND M3=M1 THEN 288 ——— も し 親 の 第 1 カー ド と 同じ な ら や り 直 し 子 の カー ド 
338 IF P3=P2 AND МЗ=М2 THEN 288 一 一 も し 親 の 第 2 カー ド と 同じ な ら や り 直 し 
340 X=25:Y=7 
358 ON РЗ GOSUB 440,550, 666, 776, 880, 998, 1100, 1210, 1320, 1430, 1540, 1650, 1750 
368 LOCATE X*3,Y*4:0N МЗ GOSUB 1874, 1880, 1890, 1900 
370 IF P1=P3 THEN 2260 
380 IF P2-P3 THEN 2228 同じ し カード だ っ た 場合 の 処理 


390 IF P1<P2 THEN 420 


430 GOTO 2010 


470 LOCATE X,Y*2:PRINT"| 1 


500 LOCATE X, \+5:РАТМТ" | 


1 
1 
1 
498 LOCATE X, Y*4:PRINT" | 1 
1 
1 
1 


IF P1<P3 AND P2>P3 THEN 1916 負け た と き の ル ー チ ン へ 


IF P1>P3 AND P2<P3 THEN 1910 
41@ GOTO 2919 вао 


BEEP ` 
LOCATE X,Y’ :PRINT" ——ə 
LOCATE X, Y+1:PRINT" | 


以下 カー ド 表 示 ル ー チ ン 


LOCATE X,Y*3:PRINT"| 


LOCATE X,Y*ó:PRINT"| 
LOCATE X,Y*7:PRINT"| 111 
LOCATE X, Y+8: PRINT" ——— 
RETURN 

BEEF 


568 LOCATE X,Y  :PRINT" ——  ə "; 


578 LOCATE X,Y*1:PRINT"| 222 |"; 
580 LOCATE Х, \+2:РК ИМТ" |2 er 
590 LOCATE X,Y*3:PRINT"| 21*$ 
608 LOCATE X,Y*4:PRINT"| e i" 
610 LOCATE X,Y*S:PRINT"| 2 |"; 


626 LOCATE X,Y*ó:PRINT"| 2 I"; 
$36 LOCATE Х, Y+7:PRINT"|22222|"; 
é48 LOCATE X,Y*8:PRINT" — "; 


RETURN 


668 
670 
é88 
676 
706 
718 
728 
738 
748 
758 


ВЕЕР 

LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
RETURN 
BEEP 

LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
RETURN 
BEEP 

LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
RETURN 
BEEP 

LOCATE 
LOCATE 


1020 LOCATE 
1030 LOCATE 
1040 LOCATE 
1050 LOCATE 


ЖҮ PRIIT: F 


XY PRINT" —— "б 
X, Y*1:PRINT"| 333 |"; 
X, Y*21PRINT" ІЗ 31"; 


Xy Y*3:PRINT"| 31"; 
X, Y*41PRINT"| 33 |"; 
X, \+5:РА ИМТ" | 31"; 


X, Y+é:PRINT" 13 3I"; 
X, Y*7:PRINT"| 333 |"; 
X, Y*ORPRINT* -———1 Б 


X, Y*1: PRINT" | 4 | 
X, Y*21PRINT^"| 44 | 
X, ҮЯЗІРКІМТ"| 4 4 | 
X,Y*4:PRINT"|[4 4 | 
X, У+5:РАТМТ" 14 4 | 
Xs Y+6iPRINT" 144444 | 
X, Y*7:PRINT"| a үү 
Х, Y*8: PRINT" ———— "5 


XY :PRINT" py" 
X, Ү+і:РВІМТ" |55555 |"; 
X, Ү+2:РВІМТ" |5 9% 


X, ҮЯЗіРБІМТ" |5 1*4 
X, Y+4:PRINT" 15555 |"; 
X) Y+5: PRINT" | 51"; 
X, Y+é: PRINT" | SI"; 


X, Үз?:іРКІМТ" |5555 |"; 
Ж, Y*St PRINT? BÀ "j 


ХҮ PRINT" SS" 
Xy Y*1: PRINT" | 6 |" 
X,Y*2:PRINT"| 6 " 
X, ҮЯЗІРКІМТ"| 666 |" 


X, Y*4: PRINT" |6 6 
X, Y+S:PRINT" |6 é 
Xy; Y*61 PRINT"|6 る 
X, У+7:РК ИМТ" | 666 
X, Y*8: PRINT" 


| | 


X,Y PRINT" ы ' 
Xy У+1:РК ИМТ" 1777771"; 
X, Ү+2:РКІМТ" [7 z" 
X, Y+3:PRINT" | TI" 
X, Y*4: PRINT" 
X, Y*S: PRINT" 
X, Y*ó: PRINT" 
X, Y*71 PRINT" 
X, Y*8:PRINT" ————~ " 


Х,У  :PRINT" p=" 
X,Y*1:PRINT"| 888 | 
X, Y*21PRINT" |8 81" 
X, Y*31PRINT"|8 8| 
X,Y*4:PRINT"| 888 | 
X, \+5:РА ПМТ" |8 8!" 
X, Y+é! PRINT" |8 8|" 
Х, У+7:РАТМТ" | 888 |" 
X, У+ВЕРАТМТ" —ə— " 


S, Y PRINT" ——.s " 
Х, Y*1:PRINT"| 999 |" 
X, ¥+2:PRINT" [9 ы 
X, Y*3:PRINT" |9 に б. 
Xs Y+4:PRINT" | 9999 |"; 
X, Y+5:PRINT" | тте 
X, Y*6: PRINT" | Я" 


4. エー シー・ デ ー シ ー 


シン ーッ デー シー 


1400 LOCATE X, Y*71PRINT"| 999 |"; 
1410 LOCATE X, Y+8:PRINT" ———— "; 
1420 RETURN 

1430 ВЕЕР 

1448 LOCATE X,Y PRINT" ———3À"; 
1458 LOCATE X,Y*1:PRINT"|1 9 |"; 
1460 LOCATE X,Y*2:PRINT"|1 0 61% 
1470 LOCATE X, Y*3:PRINT"|1 9 80["; 
1488 LOCATE X, Y*4:PRINT"|1 9 8|"; 
1490 LOCATE X, Ү+5:РВІМТ" 11 8 01"; 
1500 LOCATE X, Y*6:PRINT"|1 8 01"; 
1518 LOCATE X,Y*7:PRINT"|1 9 |"; 
1520 LOCATE X, Y+8!PRINT" ーーーーー "; 
1536 RETURN 

1540 BEEP 

1550 LOCATE X,Y  :PRINT" [———3À 
1560 LOCATE X,Y*1:PRINT"| JJ 
1576 LOCATE X, Y+2:PRINT" | ў 
1588 LOCATE X; \+3:РАТМТ" | J 
1598 LOCATE X, Y*4:PRINT" | J 
1680 LOCATE X,Y*5:PRINT"|J J 
1618 LOCATE X,Y*é6:PRINT"|J J 
1620 LOCATE X, Y*7:PRINT"| JJ 
1638 LOCATE X, Ү+8:РВІМТ" ———— * 
1648 RETURN 

1650 ВЕЕР 

1666 LOCATE X,Y  :PRINT" エーーーー 
1678 LOCATE X,Y*1:PRINT"| GGG | 
1680 LOCATE X,Y*2:PRINT"|G 01 
1698 LOCATE X,Y+3:PRINT"IQ Q| 
1700 LOCATE X,Y*4:PRINT"|G 01 
1718 LOCATE X, Y*5:PRINT"|G Q QI" 
1720 LOCATE X,Y+6:PRINT"|Q Q |" 
1730 LOCATE X, Y*7:PRINT"| GG 01"; 
1748 LOCATE X, Y*8:PRINT" ——— — リョ 
1758 RETURN 

1760 BEEP 

1778 LOCATE X,Y  :PRINT" つつ "; 
1788 LOCATE X,Y*1:PRINT"IK KI"; 
1790 LOCATE X,Y*2:PRINT"|K K 1"; 
1800 LOCATE X,Y*3:PRINT"IK K 1"; 
1818 LOCATE X, Y*4:PRINT" IKK LE 
1620 LOCATE X,Y*5:PRINT"|K K 1"; 
1830 LOCATE X,Y*ó6:PRINT"IK К 1"; 
1840 LOCATE X,Y+7:PRINT"IK КІ"; 
1858 LOCATE X, Y*8: PRINT" ———— "; 
1868 RETURN 

1878 PRINT"«*"; :RETURN | 
1880 PRINT"€";:RETURN 


1898 PRINT"@";:RETURN マー ク を 表示 する 
1908 PRINT"#"; :RETURN 
1910 REM 
1920 PLAY"U1305C7D7E7F7C7D7E7F7C7D7E7F7G87" 勝つ っ た と き の 
1946 ЫСАТЕ ë 18:COLOR ti Е ба-Руй 
, : é も に 
1950 PRINT" カ チタ ドス 。 "38" 円 ボス リョ ВАНА < 
1960 LOCATE 10,20:COLOR 6 勝っ た と き の ル ー チ ン 


1978 PRINT"RET9 オシ テク 2 クタ" サイ" 
1980 I$-2INKEYS:IF I$="" THEN 1980 | キー 入力 

1998 IF I%<>CHR#(13> THEN 1980 1 ЕС 

2660 GOTO 28 リタ ー ン を 押す ま て 

2016 REM 

2020 PLAY" り 1 1D7A7G7F7E7G7C7"—— 負け た と き の ミ ュー ジッ ク 

2030 S-S-10-K ーーーー 負け た と き は 持 金 か ら 賭 金 と 場代 10 を 引く 

2648 IF S<=@ THEN 2120 

2058 LOCATE 18,18:COLOR 2 負け た と き の ル ー チ ン 
2060 PRINT" マ ケラ テ トス 。 46% "Ei?" д" 

2078 LOCATE 10,20:COLOR 6 

2088 PRINT"RETS オシ テク クタ サイ" 

2090 I$-INKEYS:IF I$="" THEN 2096 

2100 IF I$<>CHR$(13) THEN 2090 

2116 GOTO 28 


=2— 


2120 
2139 
2149 
2159 
2168 
2178 
2180 
2198 
2200 
2210 
2220 
2230 


LOCATE 18,18:!COLOR 2 
PRINT"7»72» ハサン シマ シク 。" 
LOCATE 10,20:COLOR 6,0 
PR INT "モウ 1 ト “ PU?AZh»(G/ND"; 


破産 し た と き の ル ー チ ン 


1$= INPUTS (1) 

IF I$2"y" OR I$z"Y" THEN RUN 

IF I$="n" OR I$="N" THEN CLS:END | キー 入力 ҮМ 
GOTO 2160 МЕМО 


IF M1«M3 THEN 1910 
IF МІ>МЗ THEN 2010 
IF M2<M3 THEN 1910 
IF M2>M3 THEN 2010 


te SHARP- хі 


同じ 数 だ っ た と き の 判 定 サ ブ 


ACEY DUCEY VER 1.0 @@@ 


єз 1090 ff 


(55 


ォ ャ リカ ー ト 


ШЕН CCICOPYRIGHT 1983 BY HERART.SOF' 
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て 
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7+9 ђ- 


— 27 — 


4. 


エー シー・ デ ー シ ー 


私 は 少年 時 代 青 森 県 に 住ん で いて , 冬 に な れ ば 近く の 山 で スキ ー が で 


きま し た 。 学 校 の 体育 の 授業 も スキ ー で す 。 東京 へ 来 て か ら は , 滑 べ る 


れる 


у 


な く 。 今 で は も うす べ れ る か どう か わか り ま せん 。 し か し マイ ヨコ 
は いつ も 冬 , 自分 の 好き な と き に スキ ー が 滑 べ れ ま す 。 今 まで 消 
と が 無い 人 で も , 転ん で 怪我 を する こと も あり ませ ん し , BT 


と も あり ませ ん 。 安心 し て お 遊び 下さ い 。 こ の プロ グラ ム の スク 


ロー ル は 上 単純 に PRINT 文 で 行っ て いま す , 


5. スキ ー ス ラロ ー ム 
ゲー ム の 遊び 方 


この ゲ ダーム は 自分 の スキ ー ヤ ー 國 を 左右 に あや つっ て 旗 の 間 を くぐり 


抜け て 行く も の で す 。 旗 了 困 に ぶつ か る と コケ て し まい た ち 直 る まで 時 間 
が か か り ま す 。 一 定 の 時 間 が 過ぎ れ ば ゴー ル に な り ま す 。 そ の と きま で 
に くぐっ た 本 数 に よっ て 順位 が 決ま り ま す 。 コ ー ス は , アマ ・ プ ロ の 2 
コー ス が あり , プロ コー ス に は , 通る こと の で き な い も の も 現われ ます 。 
1 


時 点 が 多けれ ば , ワー ルド シリ ー ズ で 入賞 する こと も で きま す 。 THE 
勝目 指し て 頑張 っ て 下さ い 。 


高 得点 の 取り 方 


この ゲー ム で は 木 に ぶつ か っ た と き に , 立ち 直る まで に 2 一 3 秒 を 
要 し ます 。 これ は 非常 に 大 き な ロ ス で す の で , ポイ ント を 無理 し て 取 ろ 
J と せ ず に 安全 に ゲー ム を 進め まし ょ う 。 ま た , いく つも の 旗 が 連続 し 
て いる 所 が あり ます が , ここ が チャ ンス で す 。 一気 に 高 得点 が 取れ ます 。 
ちな み に 私 は プロ コー ス で 6 位 に し か な っ た こと が あり ませ ん 。 ア マコ 


5, 


スキ ー ス ラロ ー ム 


変数 表 


I っ ルー プ 用 (時 間 待 ち ) 

К Лаф 

K$ (0) ~K$ (3) つ 木 ・ ハ タ の デー タ 
SC っ っ スコア 


X っ プア プレイヤー の X 座 標 


A—X—A3]01& 


SKI SLAROM・ フ ロー チャ ー ト 


ER 


メ ツ セー ジッ 
タイ トル 出力 


УЙ ЖЕЛ 


木 に ぶつ か っ た 


5. スキ ー ス ラロ ー ム 


5. スキ 


€ 0-00 5g]oNe- 
ж 


R 


ー ス ラロ ー ム 
ЕМж 444 SKI SLALOM GAME 91.0 222 


ЕМж FOR SHARP-X1 BY HEART SOFT 

ЕМЖ キャ ラク ター by ノエ クン 

ЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 

CONSOLE @,25!WIDTH 40 

CLICK OFF:CLS:GOSUB 738 

COLOR 7:LOCATE 0,10 

PRINT" 772^ アマ チュ アテ “スカ 2*05"29» (A/P»"j 

I$2INPUT$ (1) アマ ・ プ ロ の 選択 

IF 1$='а" OR I$="A" THEN J=3:GOTO 90 

ТЕ 1%="р" OR i#="P" THEN J=4:GOTO 96 

GOTO 59 

COLOR 7:CLS 

X=20 

K$(0)="&#—e" 

K$(1)="&# r —" э 

К®(2)="#——%#" 族 ・ 木 の デー タ 

КФ (3) = "の も る る" 

ТІМЕФ= "00:00:00" 

LOCATE @,@:COLOR 5 

PR INT" _— O 

PR INT" | I 

PRINT"| SK I SLALOM GAMEVi1. 8 | 

РБІМТ"| ! 
I 
I 


* 

* 

ж 

ЕМЖ [CJCOPYRIGHT 1983% 3 月 * 
ж 

x 

x 


PRINT" | [CICOPYRIGHT 1983 HEART SOFT 
PRINT" | 

PRINT" 
PLAY "V120S6C2R3C2R3C2R307C" 

PAUSE 16 

LOCATE X,12:COLOR 7:CGEN 1 RAM,CG に する 

PRINT#0 CHRS(1); ーーーーーーー ス キー ヤー の 表示 

LOCATE RND(12x33,24:PRINT&8 КФ (ІМТ (ВМО (1) *xJ>> 旗 ・ 木 の 表示 

CGEN @ —— ROM, CG に する 

А$= INKEYS (0> 

IF AS="" THEN X=X+9 

IF AS="4" THEN X-X-1:1F X=<1 THEN X=1 キー 入力 

IF AS="6" THEN X=X+1: IF X>=38 THEN X=38 

IF CHARACTER ま て X」12) ="Ф" OR CHARACTER$ (X, 12) 2"9" OR CHARACTER$ (X, 12) = "Ф" THEN | 


IF CHARACTERS (X, 12)="—" THEN GOSUB 678 — 旗 の 間 を くぐっ つた と き の 判 定 ぶつ か っ た と き の 判 定 
IF TIME$-"00:01:00" THEN 398 


LOCATE @,19:COLOR 1 

PRINT" —— x  .— @ 
PRINT" | Tr 
PRINT" | жәе GOAL IN! 492 I" ゴー ル 時 の 
PRINT" | |" 表示 
PRINT" | YOUR SCOREs";RIGHT$(" — "+STR$(SC),3);" p" 

PRINT" (= 

PRINT" " 

PAUSE ЗӨ 

MUS IC"05G3R 9G 1 ROG 1ROG7 "P 

MUS IC"8G4G48G4G3ROG1ROGIROG7 数 字 を そろ えて 画面 を 
К-(600-5С2/10:ІҒ K<=9 THEN K=1 ——— 着 順 の 計算 くず さ な い よう に する 
LOCATEO, 17:COLOR 6 


520 РВІМТ " 

536 PRINT" | I" 

548 PRINT" | アナ タワ ウー ルト NYP 5° "SRIGHT*$(" "+STR$(K) , 295 "イニ ナリ マシ ク 。 I" 

558 PRINT" | |" 着 順 の 発表 


PRINT" | モウ 1 ト * チャ レン シシ マス カ ? (YES/NO) |" 
PRINT" | |" 
PRINT*t—————— — — ——— ny 
I$2INKEY$:IF I$-"" ТНЕМ. 596 

IF I$2"y" OR 1%="Ү" THEN RUN | キー 入力 
IF I$="n" OR I$="N" THEN CLS:END 

GOTO 598 

END 

MUS IC"U1203C" 


5. スキ ー ス ラロ ー ム 


658 PAUSE 10 

660 GOTO 240 

678 REM 

688 SC=SC+19:BEEP1 

490 FOR 1=1 TO 18:NEXT I " 
700 ВЕЕР 9 得点 の 表示 
718 LOCATE @,12:PRINT SC 

720 RETURN 


730 REM 

740 DEFCHR% (1) =HEXCHR$ ("3C3C187E7E181800") +HEXCHRS ("3C3C187E7E?9 5424 ") *HEXCHR$ (" 
3C3C187E7E181800") | ——— ——— AX-X-07-4 

758 DEFCHR$ (226) :HEXCHR$ (" GESE7E3E GE 900000") +НЕХСНК$ ("0101010101010101") +HEXCHRS 
("8000000000000008") 一 一 一 旗 の デ ー タ No1 

768 DEFCHR$ (144) -HEXCHR$ ("6000080000000000") +HEXCHRS ("80000000000080FF "> +HEXCHRS 
<" 99999999999999FF"〉 ーー 一 一 旗 の デ ー タ №2 

778 DEFCHR$(32)-HEXCHR$ ("800000900000800000") +HEXCHRS ("0000000000000000") +HEXCHRS ( 
"9999999999999999"〉> — スペ ー ス の デー タ 

788 DEFCHRS (227) =HEXCHRS ("707C7E7C70088800") «НЕХСНВФ<"вФв0в08080808080") +HEXCHRS 
("0000000000000060"» — — Ow 旗 の デ ー タ No3 

790 DEFGHRS (228) -HEXCHR$ ("0000000000000000") +HEXCHRS ("0000000000181818") +HEXCHRS 
("183C7E7EFFE70880") —— — — 木 の デ ー タ 

800 RETURN 


キー ボー ド の リピ ー ト を 止め る 方 法 
—————————————— S 
X1 で は キー ボー ド を 押し 続け れ ば , 何 度 も キー を た た か な く て も 同上 文字 
が 出る よう に な っ て いま す が , 時 と し て , その 機能 が 邪魔 に な る こと が あり ま 
+, た と えば 本 誌 の バキ ー ボ ポー ドレ ッ ス ン ′ SETH, キー が リピ ー ト し て は 
レッ スン に な り ま せん 。 そこ で , キー を いく ら 押 し 続け て も リピ ー ト が 利 か な 
いよ うに する 方 法 が 有り ます 。 具体 的 な 例 と し て は , POKE &Н0366, 0 と 
し ます 。 CNT, リピ ー ト が 利 か な く な っ て いる は ず で す 。 試 に キー を 押し 続 

け て みて 下さ い 。 
元 に 戻す に は , POKE &Н0366, 1 と し て 下さ い 。 逆 に スキ ー ス ラロ ー ム 
I な ど で は , リピ ー ト が 利 か な いと , ゲー ム に は な り ま せん 。 


1>----е---е---------.--.--------»------------------------.----------------- 


ーーーー ニ ーー ニーー ニ ーーーーーーーー ニ ーーーーーーー ーー- 


ニー ニー ニニ ニニ ニー ニー ニー ニニ ー ニ ーー ニー ニー ニー ニー ニー ニーーー- 


499 キー ネーー ト “ レッ ョ スン VER1. 9 $999 


も ニン ジョ ウネ キュ ウジ シャ 
の = エチ ュ ウ キネ キュウ シャ 
ЗтшуаФта? и” 


アナ ラバ k*)5225*?*29» (1-30 


ШШЕ CCICOPYRIGHT HEART SOFT EN 


私 は タイ プラ イタ ー を 本 格 的 に 打っ た こと が あり ませ ん 。 タ イプ ライ 
ター を 打つ と き は 正式 な 打ち 方 を し な けれ ば と て も 疲れ る そう で す 。 私 
は 初め か ら マ イコ ン の キー を た た いた も の で すか ら , 今 だ に 一 本 指 タ イ 
FCF. 本格 的 に 5 本 指 を 使っ て シャ カシ ャ カ と キー を 打っ て いる 人 を 
見 か ける と うら や まし く な っ て し まい ます 。 マ イコ ン を 初め て 間 : 


с“ 
+ 
< 
E 


人 は どこ に 目的 の 文字 が ある の か , いち いち は し か ら 探 が し て いく の で 
tA, 要 は 慣れ の 間 題 で す 。 沢 山 の プ ログ ラム を 打ち 込ん で 行く と 自然 
に 覚え て 行く も の で す 。 自分 が どれ だ け キ ー ボ ー ド に 慣れ た か の 判定 用 


る と 思い ます 。 


fv 
ex 
A 
e 
Sar 
TE 
ey 

2 
ay 


6. キー ボー ドレ ッ ス ン 
o 2 = | ` 
プロ グラム の 使用 法 

プロ グラ ム を 開始 し ます と , あな た の ラン ク を た ず ね て きま す 。 MH 
て 挑戦 な さる 方 は 初級 を 選ぶ こと を お 進め し ます 。 私 も 上 級 で は 打ち こ 
な せま せん 。 問題 は 30 問 で す 。 次 々 に 出 て くる 文字 を 打ち 返し て 下さ い 。 
間違え る と 下方 に 間違え た 文字 が 出力 され ます 。30 問 中 25 問 以上 打ち こ 
な せ ば キー に 人 慣れ て いる と いそ る で し ょ う 。 ここ で は 数 字 , MH, Xx 
字 が 出る よう に な っ て いま す 。 売 分 慣れ た ら ヵ カナ 文 字 に も 挑戦 し て み ま 

し ょ う 。 全 問 正解 目指 し て 頑張 り ま し ょ う 。 


変数 表 
L $ み クラ ス 判 定 用 
J つっ 時 間 待 ち 
N> EHEH 
ХЭ. BO X E Es 
I $ つ 答 入 力 用 


レ ュ スン VER1 . 9 $4499 
リコ リ そ ンタ“ イ 4 る 2 


CICOPYRIGHT HEART SOFT ШЕШЕ 


90-40 Ug P O N = 


КЕМж 


6. キー ボー ドレ ッ ス ン 


КЕМжжжжжжжжжжжжжжжжжжжхжжжжжжжжжжжжжж 


КЕМж РОК SHARP-X1 BY HEART SOFT 


КЕМж ж 
REMX 4444 %-Л--К“ レッ スン U1.0 $4949 ж 
КЕМж ж 
ВЕМЖ (CICOPYRIGHT 1983& ЗЯ ж 
КЕМж ж 

ж 

ж 


КЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
CONSOLE 6,25:WIDTH 48 


POKE&HSéé,Q:COLOR 7:015 キー の リピ ー ト を 効か な くす る 
LOCATE 5,1 


PRINT" ФФф t-A'-h* レッ ゥ スン UER1. 9 444" 

LOCATE 5,23 

PRINT" MHS CCICOPYRIGHT HEART SOFT I" 

LOCATE в, 8 画面 作成 
PRINT" 1 = シド ョ ウキ ォ ュ ウシ ャ "EPR TNT 

PRINT" 2= チ ュ ウ キュ ウ シャ "iPRINT 

8 PRINT" 3= シ ョ キュ クウ 。 シャ "iPR1INT 

8 PRINT:PRINT:PRINT 

9 PRINT" 772 К“ ノラ ンク テ ド スカ (1-35"; 

L$*$=INPLT$ (1) キー 入力 1 一 3 まで 
8 IF L$«"1" OR L$>x"3" THEN 120 

8 PAUSE 16 ーーーーーーーーー 1 秒間 時 間 待 ち 

9 CLS 

9 CSIZE 1 — 廊 字 を 通常 の 縦 ・ 横 2 倍 に する 
6 LOCATE 5,1 


O PRINT" 42% キー ホー ト * レッ ズン VERI. 8 еже" 
@ LOCATE 5,23 画面 出 カ 
8 РЕТМТ "ШШ [CJCOPYRIGHT HEART SOFT НЫШ": 

8 FOR 1-30 ТО 1 STEP -1 


8 COLOR 7:LOCATE 25,3:PRINT"73U/s22* 4"; 

8 PRINTUSING"H4";I-1; ーーーーーーーーー 問題 の 残り 数 

0 Х=31-1:СФ=СНЕФ (ІМТ (КМО (12x43) +33) —— 問題 を ラン ダム に 決め る 

6 COLOR 7:LOCATE X+4,8:PRINT#& C$; 

9 PAUSE VAL (L$5x18 — ラン ク に 応じ て 時 間 待ち を する 

8 I$=INKEY$ 

8 COLOR S:LOCATE Х+4, 10:РАТМТНО I$;——— — 入力 し た 文字 を 表示 

@ IF I$<>C# THEN COLOR 2:LOCATE X+4, 12:PRINTHO I$; 間 違 が えた 文字 を 表示 


8 IF I$=C$ THEN N=N+ 1 
9 NEXT 1 
9 LOCATE 10, 16:PRINT"772n 39 モ ンチ ュ ウ "3N3 "テキ マシ タ 。 " 


2 ГОСАТЕ1 В, 18!PRINT"*21h* チョ ウ セ ッ シ マ スカ (Y/N) "j | レッ スン が 替 っ だ た と まき の メッ セー ジ 


9 I$2INPUT$(C1) 

9 IF I$-"y" OR ІФ-"Ү" THEN RUN | キー 入力 
9 IF I$-"n" OR I$2"N" THEN CLS:POKE&HS3éó, 1: ЕМО 

9 GOTO 358 кіна алаға 


キー を リピ ー ト させ る 


ШЕШ SHARP-X1 リュ ライ 3:62 9: V 1.0 mm 


€917 РУ?ХЛСҮ 


ШШШ CCICOPYRIGHT 19898 HEART SOFT ШЕШ 


THINKING GAME PART2 は 立体 四 目 並べ で す 。 こ の ゲー ム は 
昔 ハ ムレ ッ ト と いう 名 前 で 茶 玩 具 メ ー カ ー か ら 売 り 出 され た こと が ある 
ゲー ム で す 。 8 本 の 棒 が 並ん で いて そこ に 上 か ら 玉 を 刺し て 行き ます , 
引力 に よっ て 1 番 下 まで 沙 ち る の で す が , 途中 に 玉 が すでに 落ち て いる 
と き は , そこ で スト ッ プ し ます 。 この よう に し て 縦 ・ 横 ・ 斜 め 、 い ずれ 
か 4 つ 自 分 の 石 を 並べ た 者 が 勝ち で す 。 五目 並べ と 違い , 禁 手 は あり ま 
せん 。 こ の プロ グラ ム は コン ピュ ー タ ー が , 1 手打 つの に 1 ~ 2 分 程 か 
か り ま す 。 これ は 全て の 点 を 1 о, 1 つ 調 べ て 行く た めで , BASIC の 


遅 さ を 痛感 し て し まい ます 。 読者 で 勇気 の ある 人 は コン ピュ ー タ ー の 思 


考 ル ー チ ン だ け で も マシ ン 語 に し て みて は いか が で し ょ うか 7? BASIC 


СЬ, も っ と 良い アル ゴリ ズム が ある と は 思い ます が ……。 


7. 立体 四 目 並べ 
ゲー ム の 遊び 方 


1 一 8 まで の 数 字 を 入力 し て 下さ い 。 一度 入力 し て し まう と , それ が 
ES 


有効 に な る の で , 入力 ミス は 許さ れ ま せん 。 慎重 に 入力 し て 下さ い 。 ど 


ちら か が 四 つ 並 べ る か 全て 打ち 終 れ ば ゲー ム オ ー バ ー で す 。 
=- /9 
高 得点 の 取り 方 


ゲー ム 自 身 は 単純 な の で す が , 意外 と 難し いも の で す 。 積み 上 げ 式 な 
NC, うま く 相 手 に 自分 が 打ち た いす ぐ 下 へ 玉 を 置か せる こと で す 。 真 
剣 に な っ て や れ ば , まず 負け ませ ん が , あま りな め て か か ら な いよ うに 
し まし ょ す 。 


ШШ SHARP-X41 リコ ライ ヨン モク ナラ へ“ V 1.0 ШЕН 


° 


ЕЕЕ CCICOPYRIGHT 1988 HEART SOFT ШЕШ 


7. 立体 四 目 並べ 


КЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
КЕМЖ @@@ リッ クイ ヨン モク ナラ へ ^ M1.0 $44 
ІСЈСОРҮВІбНТ 1983% 3A 


КЕМж FOR SHARP X1 BY HEART SOFT 


* 0-400 ^Q0N- 
nm 
$$ 
x 
„ЖОЕ ЖЖ Ж 


10 CONSOLE @,25:WIDTH 48:CLS 
20 RANDOMIZE (TIME) 
30 DIM B$(8,85,L (85), S4), F (4) 
40 DIM V¢16),N¢4) 


50 DATA 1,100,500, 1E20, 1, 800, 4000, 1Е20 

60 DATA 1,75,900,1E18, 1, 450, 3000, 1E18 | 盤 の デー タ の 読み 込み 
70 FOR Zi=1 TO 16:READ У (21) :МЕХТ 21 

Әй х$="0":0$="е" —— ga 


9? FOR Ісі TO 8:FOR J=1 TO 8:B*XKI,;J)="+":NEXT J:NEXT I 


100 FOR 21-1 TO 8:1 (21) =0:М№ЕХТ 21 

110 COLOR ?7 

120 LOCATE7, 12:PRINT"t253 エラ ヒド マス カ (Y/ND"] 

130 B$sINPUT$(1):CLS 

140 IF B$s"n" OR BS="N" THEN GOSUB 170:GOTO 550 
150 GOSUB 178 — — — — 画面 作成 

160 GOTO 380 キー 入力 サ プ 
170 BEEP:PRINT CHR$(115; 

188 LINE (19,2)-(39,21)," ",BF 

190 COLOR 7 

200 LOCATE 0,1 


先手 ・ 後 手 の 選 択 


218 PRINT" ШШШ SHARP-X1 リッ クイ ヨン モク 7547 V 1.0 ШЕШ; 


226 LOCATE 0,23 

230 PRINT" ШЕШ ІСІСОРҮКІЗНТ 1983 HEART SOFT NEN 
246 LOCATE 0,4 

250 FOR I-8 TO 1 STEP -1 

260 COLOR 4:PRINT Ij 

276 FOR J=1 TO 8:COLOR 5 


7 . 立体 四 目 並べ 


37 BiB 


280 IF BS(I,J>="@" THEN COLOR 6 ELSE IF B#(I,J>="o0" THEN COLOR 2 ELSE COLOR 5 


298 PRINT" ";В$‹1, J); 

300 NEXT J 

310 COLOR S:PRINT:PRINT" L1 gp Ead yt 
320 NEXT I 

330 COLOR 4:LOCATE 4,20:PRINT"1 234567 8"; 
348 PRINT 

356 RETURN 

368 COLOR る 

370 LOCATE 23,18:PRINT" ソ コ ニ IN オケ マセ ン " 

388 COLOR 6 

390 LOCATE 19,17:PRINT"h*3- オキ マス カ ? (1-8) "5 

400 M=VAL (INPUTS (12) : PRINTM; 

410 IF М<1 OR M>8 THEN 360 

420 L=L (M) 

430 IF L>? THEN 360 

446 L (M) =L+1:L=L+1 

450 ВФ, М =X$ 

460 GOSUB 170 — 画面 作成 ルー チン 

479 P$-X$. 

488 GOSUB 1136 

498 FOR .2=1 TO 4 

500 IF S〈Z〉<4 THEN 540 

510 COLOR 2 あな た の 勝ち 
520 LOCATE 23,8:РБІМТ"?72) カテ テト スリ 

538 GOTO 1470 カ 
540 NEXT Z 

550 M ウ =9i り 1=9 

5 る 9 Ni=1 

578 FOR M4=1 TO 8 

580 LsL(M4)*1 

590 IF (28 THEN 940 

400 Vel 

618 P$=0$:W=0 

620 М=М4 

680 GOSUB 1130 

640 FOR 21=1 TO 4:N(Z1) =0:МЕХТ 21 
650 FOR 2-1 TO 4 


キー 入力 サブ ルー チン 


7. 立体 四 目 並べ 


660 S=S(Z) 
678 IF S-W>3 THEN 1000 
680 T=S+F (Z) 


698 IF T<4 THEN 720 コン ピュ ー タ ー の 
700 り = い V+4 思考 ルー チン No1 


710 N(S〉 =N〈S)+1 

720 NEXT Z 

730 FOR Ігі TO 4 

740 МеМс12-1 

750 IF N=-1 THEN 780 
760 I128*XWH*4XSGN(ND +I 
778 V=U+U (11) *NXU CEA I) 
788 NEXT I 

798 IF H=1 THEN 820 

808 И=1:РФ=ХФ 

816 GOTO 638 

820 L=L+1 

830 IF L>8 THEN 888 

840 GOSUB 1138 

850 FOR Z=1 TO 4 

860 IF 5 (2) ›3 THEN У=2 
8708 NEXT 2 

880 IF V<V1 THEN 940 
890 IF V>V1 THEN Міз1:60Т0 928 
9008 N1=N1+1 

918 IF КМОс1221/М1 THEN 940 
920 いり 1= い 

930 М =М4 

740 NEXT M4 


950 IF M9<>@ THEN 990 ーーーーーーーー M9 が 0 な ら 引 き 分 け 


958 COLOR é 
970 LOCATE 25,8:PRINT"t#77 3*2," 引き 分 け 
988 GOTO 1478 再 ゲ ー ム か 
990 M=M? 

1000 L=L (MD *1:L (М) =L CD +1 
1010 B$(,M»-0$ 

И ag P$=0$:GOSUB 178 
1630 COLOR 2 

Vie4@ LOCATE 23,18:PRINT" ";jMj"- язь, " 

1050 GOSUB 1138 
1060 FOR Z=1 TO 4 


1078 IF $¢(Z)<4 THEN 1110 ———— — —— S(Z) が 4 な ら 負 け 


1989 COLOR 2 

1090 LOCATE 23,8:PRINT"774/ マ ケ F° 2." 負け 
1100 GOTO 1476 

1110 NEXT Z 

1120 GOTO 386 

1130 Q$-X$ 

1140 IF Р%-Х% THEN Q を =0 を 

1150 D2=1iD1=9 

1160 2-0 

1178 GOSUB 1250 

1180 рі=1:0р2=1 

1198 GOSUB 1258 

1200 02=0:01=1 

1218 GOSUB 1256 

1220 02=-1:01=1 

1230 GOSUB 1250 

1240 RETURN 

1250 2=1:$=1 

1260 Т=@ 

1270 2=2+1 

1280 С=0 

1298 FOR K=1 TO 3 

1300 М5=М+Кжр і: 1 = +Кжр2 

1310 IF М5<1 OR L1<1 OR NM5>8 OR L1>B THEN 1466 
1320 B$=6$ (L 1, М5) 

1330 IF C=0 THEN 1378 

1340 IF В%=0% THEN K=3:GOTO 1400 
1350 T=T+1 

1368 GOTO 14060 

1370 IF B$zP$ THEN S=S+1:GOTO 1408 
1380 C51 

1390 GOTO 1346 


| 


コン ピュ ー タ ー の 
思考 ルー チン No2 


1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1488 
1490 
1500 
1516 
1520 


7. 立体 四 目 並べ 


NEXT K 

IF D=@ THEN 1448 

2=0:01=-01:02=-02 

GOTO 1288 

5 (2) =S 

Е (Z) =T 

RETURN 

COLOR る 

LOCATE 29,19:PRINT "モウ 1 ト “ ヤリ マス カ て Y/N) "; | 
ІФ=ІМРОТФ C1) 

ТЕ ІФ="у" OR I$z"Y" THEN RUN B^ – LGA» 
IF 1$="n" OR I$="N" THEN CLS:END 

GOTO 1490 


ШИ SHARP-X1 0.94 ヨン モク ナ う ^* V 1.0 ШШ 


T 
i 


NEN CCICOPYRIGHT 1963 HEART SOFT ШЕ 


る る カメ レイ オン Ў7-&®-@@@ SC= 


以前 。 ゲ ダー ムセン ター に レジ ャ ッ ク と いう コン ピュ ー タ ー 相 手 の ゲ アー 
ム が 有り , 結構 面白 く 以 前 か ら マ イコ ン で も 作っ て みよ うと , 思っ て 
いた も の で す 。 カメ レオ ン ・ ア ー ミ ー と いう の は 。 マイ コン ゲー ム で 同 
名 の も の が 有り , これ が レジ ャ ッ ク だ っ た の で す 。 

ここ で は 相手 を 動か す た め に , 自分 が 相手 より 右側 な ら 左側 へ , 左側 
な ら 右 側 へ 動か す と いう 方 法 を 使っ て いま す 。 


8. カメ レオ ン ・ ア ー ミ ー 


ゲー ム の 遊び 方 


この ゲー ム は 下方 の 自分 の 砲台 を 操っ て , レー ザー ビー ム で 上 方 の 相 
手 の 砲 双 を や っ つけ る ゲー ム で す 。 途中 に は レー ザー ビー ム を 防ぐ た め 
に 星くず が 散ら ば っ て いま す 。 これ に 当たる と , ビー ム は 途中 で 止ま っ 
て し まい , 相手 側 ま で 届き ませ ん 。 星くず が 相手 の レー ル に 当 れ ば , 10 
点 取 れ ます が , 逆 に 相手 が 当て た 場合 は 10 点 取ら れ ま す 。 相手 は 1 回 に 
つき , 0.5 歩 し か 進ん で 来 ま せん が , 自分 の 砲台 の , どこ に 当たっ て も , 
や られ て し まい ます 。 自分 は 1 回 に つき 1 歩 ず つ 進 め る の で す が , 相手 
側 の 真中 に 当たら な けれ ば , や っ つけ る こと は で きま せん 。 相手 を や っ 
つけ れ ば 100—990 点 ま で も ら え ます 。 相手 に や られ た 場合 は , 星くず 
同様 点数 を 取ら れ て し まい ます 。 砲台 が 5 台 や られ る と ゲー ム オ ー ペ パー 


Kok 


6 る る の ソレ オン 7-і-Фф%Ф SC= 1720 НІ- 1738 


—45— 


8. カメ レオ ン ・ ア ー ミ ー 
高 得点 の 取り 方 


この ゲー ム で は 相手 より も 早く ビー ム を 打つ こと が , で きる よう に な 
っ て いま す 。 よって, ビー ム を 打ち 続け る と 相手 は 動け ませ ん 。 相手 は 
自分 の 射 定 距離 に 入ら な けれ ば , ビー ム を 打っ て きま せん 。 途中 の 星 く 
ず を うま く 利 用 し て , 相手 が ビー ム を 打っ て いる 間 に , 星 の 下 か ら 連 続 
- 発 射 し て 倒し ます 。 私 の 最高 は 相手 を 17 機 倒し た こと が あり ます 。 


変数 表 


V つ 砲台 の 数 S つ ォ キー 入力 用 
S C k а”? IT ユル ー プ 用 


K$ (0) ~K$ (3) つ 砲 台 の デー タ G つ 画面 読み 


X 1o X Je EE J つ ミサ イル 用 
X 2 つつ 自分 の X 座 標 A$, B$, C$ つっ ミ ュー ジッ クア デ ー タ 
P, Q つ 星 の X, Y 座 標 M っ スコ ア 加 減 用 


$9$$nh/v1» 7-&-@ФФ SC= 1230 НІ- 2000 


カメ レオ ン ・ ア ー ミ ー 


1 КЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 

2 КЕМж ж 

З REMK ФеФ D2/VT»5 アー ミー VER 1.0 444 * 

4 КЕМж x 

5 КЕМж [ICJCOPYRIGHT 1983ж 11 月 ж 

é REMx* ж 

7 REMK FOR SHARP-X1 BY HEART SOFT * 

8 КЕМж キャ ラク ター by ノエ クン ж 

9? КЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 

1@ RANDOMIZE (TIME) — 乱数 の 初期 化 

26 U=4:SC=0:CLICK OFF キー の クリ ッ ク 音 を 消す 
36 CONSOLE @,25:WIDTH 46 

48 GOSUB 147?0:CL 

50 K$(0)=" + " 

óð K$1»5z" Fre " 4A (TEL 

78 KS(2)=" o9 " 砲台 の デー タ 

За K$(3)=" Ф " 

за COLOR 7 

100 PRINT" @@@n/Laty ?-i-f$04 5С= НІ= "3 


110 LOCATE 21, В:РЕТМТ SC 
120 LOCATE 32, :РКІМТ HI 
180 X1=INT(RND C12 X34) \ 
140 X2= INT (RND (1) жЗа) 
158 FOR J-1 TO 7 

166 IF J=5 THEN 236 
178 FOR I=1 TO 26 | E-LESSE CTERITÀ 
180 P=INT(RND (1) X39) 

198 Q=INT (КМО (1215) +6 

280 COLOR J 

210 LOCATE P,Q:PRINT "Ф" 
226 NEXT I 

230 NEXT J р 
248 COLOR 7 

258 LOCATE 1,2 


260 PRINT" ІТ” — 
276 LOCATE 1,24 e 35$ 

288 COLOR 4 

x ————————— "e" 


зав CGENITCOLOR 。RAM.CG に する 


310 LOCATE X1,3 :PRINT КФ (2) | ke 示す る 
320 LOCATE X1,4 :PRINT K$(3»5 

Зэй COLOR 1 

340 LOCATE X2,22:PRINT K*$(68)5 

356 LOCATE X2,23:PRINT K#(1) 

366 CGEN 9 —— —— ——ROM, CG に する 

370 REM 

380 IF HI<=SC THEN HI=SC 
зей COLOR 7 

488 LOCATE 21,6:PRINT SC 
4180 LOCATE 32, @:РАТМТ HI 
420 REM 

436 IF INKEYS$(0)-2" " THEN 696 

446 IF INKEY$(@)="6" THEN X=X+1 | キー 入力 
450 IF INKEYS(@>="4" THEN X=X-1 

468 Х2=Х2+Х:Х=6 

470 IF X2<=@ THEN X2-8 は み 出 し 処理 
486 IF X2>=33 THEN Х2=33 


自分 の 砲台 を 表示 する 


ハイ スコ ア の 判定 


| スコア, Mas TORRE 


498 COLOR 1:CGEN 1 

508 LOCATE X2,22:PRINT K$(605 自分 の 砲台 表示 
518 LOCATE X2,23:PRINT K$(1) 

520 CGEN 6 


敵 の 砲台 を 移動 させ る 敵 は 
1 回 に 0.5 歩 し か 動か な い 


530 IF X1+1>=X2 AND X1-1 く =X2 THEN 808 
540 IF X1>X2 THEN Х1=Х1-.5 

550 IF X14X2 THEN X12X1*.5 

568 COLOR る iCGEN 1 

578 LOCATE X1,3:PRINT КФ (2) ¿asa 
580 LOCATE X1,41!PRINT K$(3) | 敵 の 砲台 表示 
590 CGEN @:GOTO 428 

600 REM 

610 COLOR 2 

628 FOR 1=20 TO З STEP-1 


630 LOCATE X242, I1PRINT "1"; 
640 G$*CHARACTERS (X242, 1-1) » = 
658 IF G$s"eé" THEN 1000  —— BO k ë 自分 の ビー ム を 表示 


IF 6%‹›" “THEN J-I:1-3:8C-SC*10:G0TO 689 5 
J=I 

NEXT 1 星 , レー ル に 当っ た と き 
FOR 1=21 TO J STEP-1 


LOCATE X2*2, I-1:PRINT " "j 
NEXT I 

SOUND 0,12:50UND 1,255 
SOUND 2,23:SOUND 3,255 
SOUND 4,22:80UND 5,55 
SOUND 6,21:500№ 7,&HDS5 ビー ム 発 射 音 
SOUND 8, 16:800М0 9,14 
SOUND 10, 16:SOUND11, 22 
SOUND12,3 :SOUND13, 8 

GOTO 378 

ВЕМ 

COLOR 2 

FOR 1=5 TO 23 


LOCATE X1*2, I:PRINT "|"; А 

Е$=СНАРАСТЕК$ (X1+2, 1+1) 敵 に や られ た と き 

IF F$=" F" OR F$="4" OR FS="4+" THEN 1200 の ビー ム = 
IF F$<>" "THEN J=I:I=23:SC=SC-10:GOTO 880N Kot を 表示 
J=I А Š 

ME y Е, レー ル に 当っ た と き 

FOR 1=4 TO J 


LOCATE X1*2,I*1:PRINT " "; 

NEXT I 

SOUND @,12:SOUND 1,255 

SOUND 2,23:SOUND 3,255 

SOUND 4,22:SOUND 5,55 

SOUND 6,21:SOUND 7, &НО5 ai " 
SOUND 8,16:500М0 9,16 ビーム 発射 間 
SOUND16, 16: SCOUND 1 1 , 22 

SOUND12,3 :SOUND13, 6 


GOTO 376 

REM 

COLOR 2 

LOCATE X1,3:PRINT " xpwx " | moses 
LOCATE X1,4:PRINT " Ox+4 " 

SOUND @,255:SOUND 1,255 

SOUND 2, 23:SOUND 3,255 

SOUND 4, 22:SOUND 5, 55 

SOUND 6, 31:SOUND 7,200 ARE 

SOUND 8, 15:SOUND 9, 16 

SOUND 19, 16:SOUND11, 22 

SOUND 12, 7@:SQUND13, е 

SOUND 8, в 

FOR Ізі TO 1500:NEXT I 

Ms INT(RND <1)ж8>ж100+108 ————— 得点 を 100 一 900 の 間 で 出す 
COLOR é 

LOCATE X1+1,4:PRINTUSING "###";М スコ ア の 表示 
FOR I=1 TO 15090:МЕХТ I 

SC =SC+N 

IF HI¢=SC THEN HI=SC ハイ スコ ア か ? 
CLS:GOTO $8 メイ ン ル ー チ ン へ 
REM 

COLOR 2 

LOCATE X2,22:PRINT "жж " } 自分 の 爆発 表示 
LOCATE x2,23:PRINT " OxH " 

SOUND @,255:SOUND 1,255 


SOUND 2, 23:SOUND 3,255 

SOUND 4, 22:$00№ 5, 55 

SOUND 4, 311SOUND 7,200 

SOUND 8, 15ISOUND 9, 16 爆発 音 
SOUND 1 9。 1 る 』SOUND 11。 22 

SOUND 12, 7@:SOUND13, а 

SOUND 8, е 

FOR 1=1 TO 1500!NEXT I 

IF Ve@ THEN 1400 

Ms INT (КМО (12X8) x100 «108 

COLOR é 

LOCATE X2+1,23!PRINTUSING "##W "jM 
FOR Isi TO 1500:NEXT I 

SC=SC-M 

CLS:U=U-1:GOTO 99 


8. カメ レオ ン ・ ア ー ミ ー 


1400 REM 

1418 COLOR é 

1420 LOCATE 8,15 ゲー ム オ ー バ パー 

1438 PRINT" т-д t-n- "3 

1440 PRINT" モウ 1 ト * アソ ヒ * マ スカ СИЮ"; 

1458 I$=INPUT$(1) 

1450 IF ІФ="у" OR I$-"Y" THEN 36 Ж 

1470 IF 1%="п" OR I$="N" THEN CLS:END | キー 入力 Y-RUN 

1480 GOTO 1450 N っ END 

1498 REM 以下 砲台 の デー タ 

1500 DEFCHR$(149)-HEXCHR$ (" 84848FBF9FDFDFFF ") +НЕХСНЕФ (" 84848F8F?FDFDFFF ") +HEXCHR 
$("04848FB8F9FDFDFFF "> 

1518 DEFCHRS (224) -HEXCHR$ (" 3CFFFFFFFFFFFFFF ") *HEXCHR$ ("3CFFFFFFFFFFFFFF") +HEXCHR 
$("3CFFFFFFFFFFFFFF "> 

1520 DEFCHR$ (148) -HEXCHR$ ("2021B1F 1F9FBFBFF "> *HEXCHR$ ("20218 1F 1F?FBFBFF "> *HEXCHR 
$¢"2021B1F 1F9FBFBFF") 

1530 DEFCHRS (150) -HEXCHR$ (" 18181856560BFF3C "> *HEXCHR$ С" 1818185A56DBFF3C ") +HEXCHR 
$("1818195456DBFF3C") 

1548 DEFCHRS (226) =HEXCHRS ("FFDFDF?FBF8D8484 ") +HEXCHRS ("FFDFDF9FBF8D8484 ") +HEXCHR 
を ("FFDFDF9FSF8D8444") 

1550 DEFCHRS (225) =НЕХСНЕФ ("FFFFFFFFFFFFFF3C") +HEXCHRS ("FFFFFFFFFFFFFF3C") +HEXCHR 
$("FFFFFFFFFFFFFF3C") 

1540 DEFCHRS (227) -HEXCHR$ ("FFFBFBFPF 1F 12126") -HEXCHR$ ("FFFBFBF9F 1F 12120") +HEXCHR 
$("FFFBFBF?F1F 12126") | 

1570 DEFCHRS (228) -HEXCHR$ (" SCFFDBSA5A181818 ") +НЕХСНЕ $ ‹"ЗСЕЕОВ5А5А181818")> +HEXCHR 
$("3CFFDBSA55181818"? 

1580 DEFCHR$( 32) =HEXCHRS ("G6000900000000G0") +HEXCHRS ("20000000000000G0") +HEXCHR 
("66999999999 ロ 9 ロ g" う 

1598 RETURN 


BASIC の 2 行 を 1 行 に まとめ る 方 法 

X10 Hu-BASIC tit, BASIC の テキ スト を 修正 中 に 次 の 行 に 掛 っ て し 
まっ た 場合 , 直後 の 行 が 1 つ 下 の 行 へ 移動 し て 以下 の 行 が 重 な ら な いよ うに な 
っ て ks まず 

Lal, これ も 時 と し て 邪魔 に な る こと が あり ます 。 2 つの 行 を 1 行 に ま と 
め た いと き な ど で す が , この よう な 場合 X Th, も う 一 度 初 めか ら 打ち 直さ 
な けれ ば な り ま せん で し た 。 これ を 止め る に は , POKE &H 018D, &H11 
と し て 下さ い 。 これ で スク ロー ル が 止ま る は ず で す 。 RH, これ で は 次 の 行 の 
“ті” な ど が , まぎれ 込ん で お か し く な る 場合 が あり ます の で , MERE // 
これ を また , 元 に 戻す に は , POKE &H018D, &HC3 z; #3, 

前 記し た キー ボー ド の リピ ー ト を 止め る 方 法 同様 に . どの 方 法 に も 一 長 一 短 
が , ある よう で す の で , ご 自分 の 使用 状態 に 合わ せ て , 御 利 用 し て みて 下さ い 。 | 


m ............................................................. 


+ 
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MON TUE HEN THU FRI 


ン と いえ ども 。 コン ピュ ー タ ー で す 。 ダー ム ば か りや ら せ て い ぃ いて は X 1 
が 可哀想 で す 。 た ま に は コン ピュ ー タ ー ら し く 計 算 も や ら せ て みよ うと 
思い 作っ た の が , この 万 年 カレ ンダ ー で す 。 こ の プロ グラ ム で は 指定 き 
Qf, 日 の カレ ンダ ー を 表示 する も の で す 。 ま た , プリ ンタ ー に は 1 
年 分 の カレ ンダ ー を 出力 する こと も , で きる よう に な っ て いま す 。 あ な 
た の スケ ジュ ー ル 作り な ど に , ご 活用 下さ い 。 

この プロ グラ ム で は 使用 し ませ ん で し た が , 画面 へ 出力 する の と プリ 
ンタ ー へ 出力 する ルー チン を 共用 する こと が 可能 で す 。 具体 的 な 方 法 と 
し て は , PRINT, LPRINT o, 代り に , PRINT 拉 を 使用 する の で す 。 
ここ の ファ イル 番号 を 変数 化す れ ば , 変数 値 を 受け 渡す だ け で 出力 する 
対象 を 変更 する こと が 可能 で す , 蛇足 で す が 1 と すれ ば カセ ッ ト へ 出力 
する こと が 可能 で す 。 


9. 万 年 カレ ンダ ー 
プロ グラ ム の 使用 法 


まず プロ グラ ム を 開始 し て 。 カレ ンダ ー を 見 た い 年 , 日 を 入力 し ます 。 


次 に プリ ンタ ー に 出力 する か どう か を 入力 し て 下さい 。 使用 する と き は 
Yè, し な いと き は N を , 入力 し て 下さ い 。 プ リン ター の コマ ンド は 特 
別 な も の を 使用 し て いま せん の で , どの よう な プリ ンタ ー に も 出力 で き 
る は ず で す 。 


@eeee マ | ネ 2 p v 


> 97 ~ № 
CCICOPYRIFHT 1983% ЗЯ 
FOR SHARP-X1 MADE BY HEART SOFT 


Фэ イレ チ フ ラー ダイ モク 1984 

AF イレ テフラ ニダ サイ 。? 8 

フミ リン ター= の チラ シマ スズ スカ? V 

2%7%) Йэ の チラ “シマ スズ (Y/N)? V 


変数 表 


К, し つつ FOR 文 で 使用 S 一 日 出力 用 
Yo S 1— S oA% 
M1—Mo/lf E 
I $ー キ ミー 入力 用 Y 1 つ Y の 仮 変数 
I, J 曜日 を 求め る 変数 


МУ Я 


D 1 年 分 出力 する か 判定 用 


. 万 年 カレ ンダ ー 


1 КЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
2 РЕМЖ x 
З КЕМж @@@@@ マン ネン カレ ンタ ドー 91.0 $4444 ж 
4 ВЕМж E ж 
5 КЕМж [IC1COPYRIGHT 1983ж ЗЯ x 
$ КЕМЖ ж 
7 РЕМЖ FOR SHARP-X1 BY HEART SOFT ж 
8 КЕМж ж 
9 КЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


18 DIME (12) :CONSOLE 6,25:WIDTH 48 
20 COLOR 7,8:CLS 
30 PRINT "ЕВЕ ВЕН СВОЕ АОН ОА a PENNE " 


48 РАМТ" Ш | 

58 PRINT'E 4444 マン ネン NLD 7 - өзе H" タイ トル 

50 PRINT"H m widens 

70 PRINTS (CICOPYRIFHT 1983% ЗЯ g | メッ セー ジ 出 カ 
80 PRINT"H g" 

26 PRINT"H FOR SHARP-X1 MADE BY HEART SOFT Ш" 

180 РКІМТ"Ш m" 

110 PRINT" “% 


128 LOCATE 5,16: INFUT "жэ イレ テク タ ド サイ 。 "5 Y 
130 LOCATE 5,12:1NPUT "H3 4,529“ 94. ";М = 月. プリ ンタ ー か の 入力 
146 LOCATE 5, 14: INPUT "7° リン ター ニ DFO EZRA" I$ 

150 IF I$-"y" DR I$-"Y" THEN48g 

166 GOSUB ?88 — ———————— = — 4 (eie 

178 REM 

180 D=1 

176 GOSUB 8 る 9 —————————— — 曜日 を 求め る 

208 CLS:PRINT:PRINT 

210 PRINT" ав"; 

220 PRINTUSING"S&SSH";Y; 

230 PRINT"z";M;"BH";i"75v»?"- ШЕШ" 


240 PRINT 

200 PRINT?  =————=———— "PRINT 

260 COLOR 2:PRINT" SUN ";:COLOR 7:PRINT"MON TUE WEN THU FRI ";:COLOR S:PRI 
NT"SAT":PRINT 

278 COLOR 7 

260 PRINT ë jme mcenia еш шшш шшш "SPRINT 


290 FOR К=1 TO 6 

368 FOR L=6 TO る 

316 IF L=9 THEN COLOR 2 ELSE IF L=é THEN COLOR 5 ELSE COLOR 7 

326 5=7ж(К-1)> + 

336 IF 5<1 THEN 356 

346 $1=5-1+1 | 
858 IF $1<1 THEN 410 を プリ ント する 
358 IF 51>Е (М> THEN 446 

378 Т=1 

388 IF Si«-9 THEN 406 

398 T=0 

400 PRINTTAB (4xL+T+6) 5513 

416 NEXT L 

428 PRINT:PRINT 

4S8 NEXT K 

440 COLOR 7 

450 PRINT:PRINT:PRINT" ————— " 

460 LINE (0, 9) - (39, 23), "Ш", B 

478 GOTO 580 


480 REM 

490 LOCATE 5,16: INPUT"2^* 5. H3 ウォ タ " シ マズ スカ СҮМ) "ІФ Ж 

506 IF 1%="у" OR I$-"Y" THEN FOR M=! TO 12 プリ ンタ ー に 出力 か キー 入力 
516 LPRINT Y つ 1 年 分 N っ その 月 の み 
520 GOSUB 988  ——— — — — — —— デー タ の 読み 込み 

530 КЕМ 

540 D=1 

550 60548 860 — 曜日 を 求め る 

540 REM 

570 LPRINT" XX" SYS "E" SMS "RU ALYY -жж" 

280. LPRINIM. аенын ui プリ ンタ ー に 出力 する デー タ 

590 LPRINT" | SUN MON TUE НЕМ THU FRI SAT" 

680 LPRINT" ---------------------------- " 


610 FOR К=1 TO 6 
520 FOR L=9 TO é 
6380 S-27*(K-15*L 
648 IF 5<І THEN $46 


ЕТЕНЕ 


$1=5-1+1 

IF S1<1 THEN 720 

Jp опа THEN 759 B を プリ ント する 

IF S142? THEN 710 

T=8 

LPRINTTAB (аж +7+1) 351; 
NEXT し 

LPRINT 
NEXT K 

REM 

LPRINTI!LPRINT* ---------------------------- " 
LPRINT:LPRINT 

IF 1%="у" OR I$2"Y" THEN NEXT M 一 一 一 も し 1 年 分 出す な ら 次 の 日 を 表示 
GOTO 800 

REM 
LOCATE 5,24 

PR 1NT "チカ ドウ カレ ンタ ドー ニ ウッ リマ スカ CY/ND "5 

INPUT 1$ キー 入力 

ТЕ I$2"y" OR I$="Y" THEN RUN 

END 

REM 

IF M>=3 THEN 910 

M1 =M+ 19 
Y1 =Y- 1 

GOTO 936 曜日 を 求め る サブ 
M1 =M-2 

Yi=Y 
JsYI*INT (Y1/4» - INT CY1/186) 

J=J+INT(Y12480) + INT (2. 6жМ1-. 2) +0 } あま り が 0 な ら 日 曜 
IsJ-7XINT (J/7) な と 

IF M=2 THEN 1=1+1 に 
RETURN 

ВЕМ 
RESTORE 1020:FORK-1TO12 

READE (K) 

NEXT K I 12 ヶ 月 分 の 日 数 の 読み 込み 
DATA 31,28, 31,38, 31,38, 31, 31, 30, 31, 30, 31 

REM 

IF М‹>2 THEN 1090 

IF Y/44»INT(Y/4) THEN 1096 

ТЕ Y/180«»INT(Y/180» THEN 1080 ВОЗНЯ 

IF Y/400«»INT(Y/400) THEN 1096 

Е (2) =29: RETURN 

RETURN 


9. 万 年 カレ ンダ ー 


$$$ SHARP-X1 MASTER MIND VER 1.6 
773) 999 


Tah 
n*ya-4D0 イロ リ ミ 


7*5) hn»hb"*In? 2165 


ШИЕ CCICOPYRIGHT 1983 HEART SOFT ШШШ 


この ゲー ム は 欧米 に 古く か ら あ る も の で , 別名 HIT & BLOW と 呼 
ば れ て いる ゲー ム で 。 マイ コン の 考え た , W, Ж, シア ン , б. 水色 , 
黄 の 内 の 4 色 の 色 と 場 所 を 当て る ゲー ム で す 。 それ だ け で は 判り ませ ん 
NC, マイ コン は ヒン ト を 与え て くれ ます 。 場 所 と 数 字 が 一 致し て いる 
場合 は HIT と いい , 緑色 の 玉 を 出し ます 。 数 字 だ けが 一 致し て いる 場 
合 は BLOW と いい , 赤い 玉 を 出し て 教え て くれ ます 。 た と えば , E 
解 が , 青 , 赤 , シア ン , 緑 の 順 の と き に 1, 5, 4, 3 と 答え れ ば , 
1 ヶ所 HIT 2 つ BLOW て, 緑 玉 1 ヶ に 赤玉 2 ヶ を 表示 し ます 。 X 
こ か ら 推 理 し 10 回 以内 で 当て て 下さ い 。 マイ コン は 同じ 色 を 何 回 も 使う 
こと が 有り ます の で , 気 を つけ て 下さ い 。 例 えば, すべ て が 青 と いう と 
きも 有り ます 。 まず は 7 回 位 で 当る 


10. マス ター マイ ンド 


これ は , すべ て あな た の 推理 カカ し だ いで す 。 1 一 2 回目 は まず デ タ ラ 
メ な 数 を 入力 し て みて , そこ か ら , それ ら の 共通 点 を 見 つけ て いき , + 


べ て の 色 が 解っ た 後 は 並べ 変え を てい くだけ で す 。 チャ ンス は 10 回 し か 有 
り ま せん の で , 慎重 に や り ま し ょ う 。 


@@@ SHARP-X1 MASTER MIND VER 1-8 @@@ 


了 ナ ラリ 399 Jab 
n*ye-40 イロ ナミ 


"ES 
n4» 
Diz 
LE 
bí z 
n » 
n4 z 


オメ チト の 279472. 


ШЕШ CCICOPYRIGHT 1983 HEART SOFT ШЕШ 


変数 表 


AHIT o% 

BoBLOW ož 

S つ 予想 値 

I, J, K>FOR 文 で 使用 

R つ 10 の 階 乗 を 入れ た も の 

С (п) っ 当て る 4 けた の 数 字 

Е (n) 一 当て る 数 字 の ASC II コー ド 
С (п) つ 了 予想 値 4SC II コー ド 


10. マス ター マイ ンド 


全部 当っ た 時 


マス ター マイ ンド ・ フ ロー チャ ー ト 


タイ トル ・ メ ッ セ ー ジ 
スコ ア 表 示 


や る か 合 か 


R 
R 


R 
R 


'00-0.050N- 
= 


10. マス ター マイ ンド 


ЕМжжжжжжжжж: жжжжжж 
ЕМж ж 
ЕМЖ ШШШ MASTER MIND VER 1.0 ШЕМ ж 
ЕМж А ж 
ЕМЖ [ICJCOPYRIGHT 1983& ЗЯ x 
ЕМЖ x 
ЕМЖ FOR SHARP-X1 ВУ HEART SOFT ж 
ЕМЖ ж 


ЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
DIMC ‹4),Е (45, G (45 
Pi1$-"sese" 
CONSOLE @,25:WIDTH 44 
CLS 
COLOR 7 
LOCATE 0,0:PRINT" 444 SHARP-X1 MASTER MIND VER 1.0 еже; 
LOCATE 9,23kPRINT" ШШШ [CICOPYRIGHT 1983 HEART SOFT БШШШ"; 
FORIs1TO4:C (I) 2 INT (КМО (1) ж) *49 : NEXTI 
n 

FORI=1T04:P$=P$+CHRS (C (1) ) ENEXTI 画面 作成 
LOCATE 3,2:PRINT" 22, зу? ケッ カ "J 

LOCATE 3,3:PRINT" “ショ ー イ ロ イロ ノミ "j 

LOCATE 3, 4!PRINT"------------- ------- ----- "j 
FORZs1TO6:LOCATE30, 8+2: COLORZ:PRINT"4n";Z5 "2*2, "INEXTZ 
FOR 1=1TO19 

REM 

COLOR 7 

LOCATE 0,20:PRINT SPACE$(39); 

LOCATE10:280:PRINT"7727 лор‘ IN"; | キー 入力 

INPUT 0%” 

IF LEN(Q$24»4 THEN 278 ——— —— A 文字 で な か っ た と き は や り 直 し 
R=1000:S=0 

FOR J=1 TO 4 

T$2MID$ (Q$, J, 1) 

G (J> =ASC (T$) 

IF (G(J)>48>*(G(J><55> THEN 288 — 1 ~ 6 まで の 数 字 で な か っ た と き 
GOTO 168 

5-(6 (72-483 *R+S 

R=R ノ 19 

NEXT J 

GOSUB 546 


IF A<>4 THEN 368 

PLAY"O4EPR3ESRSFSR3ESRSGSRaE 2E タ R3D2C タ RSCR3DXRSE ウ RSE2KR3DWR3D・ 

LOCATE 12, 17:РАТМТ" セイ カイ 9*2. "j = 全部 当っ た と き 
LOCATE 12,19:PRINT" オメ テバ トウ 2“ サイ マス 。 "3 r GOTO 476 

возив る 99 

LOCATE3, I*45: PRINT USING"8H";I;:PRINT" カイ メア "jJ 

FORZ=1TOS:COLOR VAL CMID$(STR$OS?,Z, 1502 :PRINT"$";:NEXT 2---- 自分 の 考え の 表示 
COLOR 2:LOCATE 18, 1+5 

PRINTLEFTS (P1$, AD ; m 

COLOR 4:LOCATE 25, 1+5 HIT & BLOW 表示 

PRINTLEFTS (P1$, B) 

NEXT I 

PLAY OGD 7A767F 7E203C 2R205D 75767 € 7E707 C? " 

LOCATE 12,17:PRINT"  9*2£23*95."; 10 回 や っ て も 当ら な か っ た と き 

LOCATE 12,19:PRINT"t424^ "jP$j "9х, "j 

COLOR 3 


LOCATE 8,20:PRINT SPACES (39); 

LOCATE 10,21:PRINT"t?1h" ヤリ マス カバ (y ッ or п)"; 

I$sINKEY$:IF I$-"" THEN 500 

IF 1%="у" OR I$="Y" THEN RUN キー 入力 Y つ RUN 
IF I$e"n" OR I$-"N" THEN CLS:END N—END 
GOTO Sea 

REM 

өзе 

FOR J=1 TO 4 | | А 

IF $ (CJ) =C(J) THEN A=A+1 HT の 数 を 調べ る 

NEXT J 

RETURN 

REM 


FOR J=1 TO 4 
U$zMID' P$; J; 1) 
E (J) =ASC (U$) 
NEXTJ 

B=9 


. マス ター マイ ンド 


668 FOR J=1 TO 4 

678 FOR К=! TO 4 調べ 
る 89 IF 6 (7) < ›Е‹К) THEN 720 ELON ORES 
690 B=B+1 

700 E(K»260 

716 GOTO 738 

720 NEXT К 

730 NEXT J 

748 B=B-A 

758 RETURN 

768 END 


@@@ SHARP-X1 MASTER MIND VER 1.0 $44 
7*5) зу? 


カイ メ 
イメ 
D4 x 
n4» 
N42 
p< > 
pí > 
LES" 
n4» 
n4» 


ШЕН CCICOPYRIGHT 1983 HEART SOFT ШШШ 


11 
平安 京 エ イリ アン 


ШЕШ SHRRP-X1 HEIRNKYO ALIEN VER 1.80 ШЕ 


NE CCICOPYRIGHT 1983 BY HEART SOFT ШШШ 


これ は , か な り 流 行っ た ゲー ム な の で , 一 度 は 見 か けた 方 も いる と 思 
いま す が 7 これ を 作っ た の は 東大 の マイ コン クラ ブ の 人 達 だ そう で 
す 。 東 大 生 に 負け じ と 同じ ゲー ム 作 っ て み ま し た 。 プロ グラ ム は 極力 サ 
プル ー チ ン に 分 け て 作り , な る べく 分 か りや すい よう に 作っ た つも り で 
3. 相手 エ イリ アン が 8 匹 に な る と , 動き が 少し ぎこちなく な っ て し ま 
いま し た が , 出来 上 り は BASIC に し て は , まず まず の も の が 出来 ま 
(2358 


. 平安 京 エ イリ アン 


ゲー ム の 遊び 方 


この ゲー ム は 迷路 状 に な っ て いる 平安 京 に 現れ た エイ リア ン を , m» 
ら 守 る 検 非違 使 ( ケ ビ イ シ と 読む , 詳し く は 歴史 書 で ) が 穴 を 掘り , TE 
ち た エイ リア ン に 土 を 掛け て 埋め て し まう ゲー ム で す 。 

エイ リア ン の 動き は 完全 に ラン ダム で す の で , 検 非違 使 が 近く に いて 
も 気がつか ず に 行っ て し まう こと が あり ます 。 これ で は 不 公平 な の で ェ 
イリ アン に 限り , 交差 点 を 斜め に , よぎる こと が で きる よう に な っ て い 
ます 。 よ っ て 交差 点 に 穴 を 掘っ て も 必ず し も 落ち る と は 限り ませ ん 。 т 
イリ アン を すべ て 埋め て し まう と 次 の 面 に 進み ます 。 迷路 も また 完全 な 
ラン ダム な の で , 同じ 迷路 は 出 て こない で し ょ う 。 エ イリ アン 4 匹 の 面 
を クリ アー すれ ば , 次 は 6 匹 , 6 匹 の 次 は 8 匹 で 8 匹 を 越せ ば 元 の 4 匹 
に 戻り ます 。 使用 キー は 移動 が テン キー4 つ , RIENDA, 穴埋め 
が C キー で す 。 検 非違 使 は 3 人 , すべ て や られ る と ゲー ム オ ー バ ー で す 。 


ШЕШ SHARP-X1 НЕТАМКУО ALIEN VER 1.0 ШШ 


WEN CCICOPYRIGHT 1983 BY HEART SOFT ШЕШ 


11. 平安 京 エ イリ アン 


高 得点 の 取り 方 


この ゲー ム に は 色々 な 秘技 が あり , 詳し く は , 某 マ イコ ン 雑 誌 の 1980 
年 2 月 号 に 載っ て いる の で す が , 一 部 を 紹介 し ます 。 


^ ЕЕ Өл @ エイ リア ン 
ри 15 


長野 掘り 荒川 掘り 隠居 掘り 


Фо КЖ | 


エリ マキ 掘り アキ バ 掘 り 


この プロ グラ ム で は 交差 点 を 斜め に 移動 する こと が あり ます の で , 7 
キバ 掘り , 長野 掘り は 使え を ませ ん 。 エ イリ アン は ラン ダム に 動く の で , 
隠居 掘り を し て いた ら 日 が 暮れ て し まい ます , で 荒川 掘り な ど が 有効 な 
よう で す 。 あと は , と っ て お き の 技 の エリ マキ 掘り で す が , 少し 時 間 が 
か か る の が 欠点 の よう で す 。 


変数 表 


P—ALIEN [thy А, B= 検 非 違 使 用 , X (п), Y (n) へ の 
K… 検 非違 使 の 人 数 数 値 , 受け 渡し 用 仮 変数 
X (0) E, F>ALIENĦ, X (п), Y (n) へ の 

検 非違 使 の X、Y 座 標 
Y (0) 数 値 , 受け 渡し 用 , 仮 変数 
eR I, J, Zー ル ー プ 用 

ALIEN OX, YH 

У (1-Р) 


11. 平安 京 エ イリ アン 


平安 京 エ イリ アン ・ フ ロー チャ ー ト 
(D 検 非違 使 出現 


や を タン ダム に 


Ki Y ЖАС 
決め る 
| мене | 


食べ られ た か 


P 個 出 た か 
NO 


1. 平安 京 エ イリ アン 


. 平安 京 エ イリ アン 


REM*k FOR SHARP X1 BY HEART SOFT 
КЕМж 
КЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
10 CONSOLE 6,25:WIDTH 40 

28 RANDOMIZE (TIME) — 乱数 の 初期 化 

30 Р=4:Н=Р:К=3:5С=@ 
46 60508 1368 — 
50 GOSUB 1660 —— ——————— スコ ア 表示 


ххх 


1 ыы RA NO IE I RNR HHA 
2 КЕМж | P ж 
3 КЕМж 444 НЕТАМКУО ALIEN V1.6 44449 ж 
4 РЕМЖ 

5 КЕМж C[CICOPYRIGHT 19334 3 月 

$ КЕМж 

> 

8 

т 


68 GOSUB 178 ------- 検 非違 使 出現 
78 GOSUB 250 —— n — ——— エイ リア ン 出 現 
88 G0SUB зта ーーーーーーーー キー 入力 用 


$9 GOSUB 1999 

180 IF W=@ THEN 138 
119 IF K-à THEN 1816 
126 GOTO 80 


136 IF P=4 THEN P-é:GOTO1ó6 


j 


画面 作成 ルー チン へ 


エイ リア ン 移 動 ル ー チ ン 
— 一 面 ク リア ー し た と き 
ーー 検 非違 使 が 全員 死ん だ と き 


140 IF Р=5 THEN Р=8:6010168 } 次 の 面 の エイ リア ン の 数 を 決め る 


159 IF Р=8 THEN P 
160 WsP:GOTO 48 
170 REM “hte TE*4»/ テル トコ ロ eee 
188 COLOR 5 

190 X(0)=INT(RND (1) *26+13) 

266 Y(6>=INTCRND (19 жі5 +5) 

210 Z$=CHARACTERS (X (0), Y C055 
226 IF Z$«4»" " THEN 190 
230 LOCATE X(9), Ү 0) :РКІМТ" Ф"; 
246 RETURN 

250 REM Shh エ イリ アフ ノ テー ルト コロ ФФ ЗУ 
266 COLOR 2 

276 FOR 1=1 TO P 

288 06(1›=@:МЕХТ I 

276 FOR I-1 TO P 

366 х1) =ІМТ ‹ЕМО (1) *20+13> 

316 YCID=INTCRND (1) жі5+5) 

326 ZS=CHARACTERS (X (I), Y CI») 
330 IF 2%<>" " THEN 388 
340 LOCATE ХІ), ҮІ) :РКІМТ "а"; 
350 МЕХТ І 

368 RETURN 

370 REM ФФ%% キー ニュ ウリ ョ ク ФЕ 

ЗЕЙ IF ІМКЕҮФ‹0) ="8" THEN А=8 :B 
390 IF ІМКЕҮФ (0) ="2" THEN ñ=808 
408 IF ІМКЕҮФ (0) = "4" THEN А=-1:В=@ 
916 IF ІМКЕҮФ (80) ="&" THEN А=1 :B-6 


4 


als 
1 


420 I$=INKEYS(O):2I1IF I$-"Z" OR I$-"z" THEN GOSUB 528 


430 IF i$-"C" DR i$-"c" THEN GOSUB $28 
448 2%=СНАКАСТЕК% СХ (0) +A, Y COD «В? 
450 IF Z$4»" " THEN RETURN 


468 LOCATE X(@),Y(@) SPRINT" "j な ら 戻 る 


470 E=A:F=B 

480 Х 0? =Х (0) +4: Ү (0) =\ CO) +В: А=0:В=8 
498 COLOR 5 

500 LOCATE X«(05,Y«(05 :PRINT"4"; 

516 RETURN 

520 КЕМ See FEN LPN” ホル ded 

536 COLOR 5 

540 РФ=СНАКАСТЕКФ (X (0) +E, Y COD *F) 


556 IF P$-" " THEN LOCATE X(@) +E, Y CO» *F : PRINT 
568 IF P$-"1" THEN LOCATE Х‹@>+Е, YCO) *F: PRINT 
S76 IF P$-"2" THEN LOCATE X(@) +E, Y(@)+F:PRINT 
588 IF Р%="3" THEN LOCATE X«68)*E,YC8) *F:PRINT 
598 IF P$-"4" THEN LOCATE X46) +E, Y¢(@) *F: PRINT 
59а IF РФ="5" THEN LOCATE Х‹0) +Е, Y (0) *F: PRINT 


る 19 RETURN 

520 КЕМ ФФ TES LENS ウメ ル delete 
638 COLOR 5 

548 P$=CHARACTERS СХ (0) +E, Y (0) *F) 


658 IF P$="@" THEN LOCATE Х 0) +E, Ү‹0) *F:PRINT 


— 行 ( 方 向 が 空白 以外 


検 非違 使 の 出現 する 場所 を 決め る 
も し 空白 で な けれ ば , や り 直 し 


エイ リア ン を P 匹 だ け 出 現さ せる 


も し 空白 て な けれ ば , や り 直 し 


キー 入力 
"1";:GOSUB 1926 
"2";:GOSUB 1920 
"S";:GOSUB 1926 
"4";:GOSUB 1920 
"S";:GOSUB 1926 
"e";:GOSUB 1926 


"5";:GOSUB 


2018 | 


8r 
2-Т 
4-Ж 
6-ж 
2—14 
C つ 埋め る 


穴 掘 り ル ー チ ン 


11. 平安 京 エ イリ アン 


660 IF P$="X" THEN LOCATE X(8)*E,YCQ) *F:PRINT "5";:GOSUB 2010 
678 IF P$="5" THEN LOCATE X(0)*E, Үд) *F:PRINT "4";:G08UB 2816 | . . 
680 IF P$="4" THEN LOCATE ХС) +E, YCO) *F:PRINT *3";:G0SUB 2010 | 作 堆 め ル ー チ ン 
698 IF P$="3" THEN LOCATE X(8)*E, YCO) *F:PRINT "2";:GOSUB 2010 

768 IF P$="2" THEN LOCATE X(G)+E,Y(@)+F:PRINT "1";:GOSUB 2016 

710 IF P$="1" THEN 738 

720 RETURN 

730 FOR Ісі TO P:IF Q¢I>=1 THEN 750 

748 IF X(X0)+E=X(I) AND Y(@>+F=YCI>D THEN 780 

759 NEXT I 

760 LOCATE X«0)*E, YCO) *F:PRINT" "j; 

776 GOTO 720 

788 REM dee エイ リア ンカ YR dde 

796 COLOR 4 

880 FOR J=1 TO 10 

810 BEEP1:FOR Z=1 TO 5 

826 NEXT Z:BEEP@ 

830 LOCATE X¢0> +E, Y¢(@)+F2PRINT"X"3 

848 FOR 2-1 TO 2@:NEXT Z 

850 LOCATE X(@) +E, Y(@)+F:PRINT*a"3 

868 FOR 2-1 TO 20:NEXT Z 

870 NEXT J:Q¢I)=1:WsW-1 

888 LOCATE X«(0)4E, YCO) *F:PRINT" "j エイ リア ン が 死ん だ ルー チン 

898 PO-INT(RND (12x10) x10«180 

966 LOCATE 7,11 

910 PRINT"4v/n" 

928 LOCATE 7, 13 : = 

930 PRINT USING"HHEH";PO 得点 表示 

948 FOR 1-1 TO 1999:NEXT J 

956 COLOR & 

960 LOCATE 7, 11:PRINT"IEDEIU" ; 

978 LOCATE 7, 19:PRINT"[BUDISISI" $ 

988 SC=SC+PO:GOSUB 1646 

$98 GOTO 720 

1080 REM 444% エイ リア ンカ 2252 а 

1819 COLOR 2 

1628 FOR I-1 TO P 

1030 IF 01) =1 THEN 1140 

1040 IF 2<12<>8 THEN 2<12-2<12-1:650Т0 1146 穴 に 埋まっ て 動け な い 時 

1058 C-INT(RND(1)X3):IF C=9 THEN С=0 ELSE IF C=1 THEN C=1 ELSE Er 


10868 D-INT(RND(12xX3):IF D=9 THEN D-6 ELSE IF D=1 THEN D=1 ELSE D=-1 


1870 Z$=CHARACTERS(X (1) +С, Y CI) +0) € = 

1880 IF Z$="M" THEN 1148 — 壁 の 時 方 向 も ラン ダム に 

1696 IF Z$="@" THEN 1160 — ROR 決め る 

1199 IF Z$-"4" THEN 1216 — — — 検 非 違 使 の 時 

1118 LOCATE ХІ), ҮІ) :PRINT" "3 エイ リア ン の 移動 
1128 X(I)=X(I)+C:Y(I)=Y(I)+D:C=0:D=0 ルー チン 


1130 LOCATE ХІ), УСІ) :PRINT"3"; 

1149 NEXT 1 

1158 RETURN 

1168 LOCATE X(I,Y(GD:PRINT" "j; 

1178 ХІУ 2XOD4C:YCODSYCOD +0: С=0:0=0 | ЦР 
1180 LOCATE ХІ), ҮІ) :РВІМТ"Ж"; 

1196 ZI) =20 

1268 GOTO 1148 

1218 REM 44b TES den эя Ф 

1220 FOR 1=1 TO 18 \ 

1238 ВЕЕРІ:ҒОК J=1 TO 5 

1248 NEXT JiBEEP @ 

1258 COLOR 2 

1260 LOCATE Х‹0),Ү 0) :РВІМТ" Ж"; 
1276 FOR J=1 TO 20:NEXT J | 
1288 COLOR 5 ne R 
1299 LOCATE X(0), Y (0) :PRINT"4"; 検 非違 使 が 死ぬ ルー チン 
1388 NEXTI:K-K-1 

1318 FOR Ј=1 TO 20:NEXT J 

1328 LOCATE X485,Y40):PRINT" "j 
1330 605481658 

1540 60548178 

1350 RETURN 

1366 КЕМ Sieh ヘイ アン キョ ウ メイ ロ dee» 
1378 COLOR 7:CLS 

1380 PRINT" BAM SHARP-X1 HEIANKYO ALIEN VER 1.0 HER"; 
1390 LOCATE 4,23 


xA 


11. 平安 京 エ イリ アン 


1400 РАМТ" Ш CCICOPYRIGHT 1983 ЗҮ HEART SOFT HAB"; 

1419 COLOR $ 

1429 LOCATE 6,4 

1436 FOR 1=1 TO 1? 

1448 PRINT TAB (S>; 

1458 PRINT STRING$(30, "а" › 

1488 NEXT I 

1478 FOR 1=а TO 4 4 x 

1488 LOCATE 14, 1ж3+5 通路 を 通る 

1490 PRINT STRING$((19," ゆう 

1500 NEXT I 

1510 FOR 1=9 TO é 

1520 LOCATE 1ж3+14;6 

1530 PRINT" ";:FOR J-6 TO 18 

1548 PRINT CHR$(31);CHR&(G9);" "; 

1558 NEXT J 

1560 NEXT I 

1570 FOR 1=1 TO 5 

1580 LOCATE ІМТ (АМО (12 жӧ) X815, INT (ЕМО C124) X346 

1590 PRINT "Й "; 

1 る 99 NEXT I 

1618 FOR 1=1 TO 5 

1620 LOCATE ІМТКМО<12ж62ж3%17, INT CRND (1) жа) жЗ +6 

1630 PRINT" ";CHR$(29)5;CHR$(G1)5;"IE"; CHR$ (29) ; CHR$ (315 5 "18"; 
1540 NEXT I 

1658 RETURN 

1560 REM awh хо? dedu 

1676 COLOR 5 ] 
1680 LOCATE é, 7:PRINT"SCORE"; 
1470 LOCATE 6,9 

1700 PRINT USING "#####"; 5С; 
1710 LOCATE 4,15 

1728 COLOR 4 

1738 PRINT" ケ ヒド イシ リョ 

1749 LOCATE 7, 17 ? スコ ア 表 示 
1758 COLOR é 

1760 PRINT "MUN"; 
1778 LOCATE 7,17 
1788 COLOR 4 

1790 PRINT RIGHTS ("@@@@e",K> ; ーー トー 検 非違 使 の 人 数 分 だ け 
1866 RETURN 

1810 REM Ж 75-4 オー ロー в 
1820 LOCATE 0,168 

1836 PRINT STRING$(280," "5; 
1840 LOCATE 0,11 


1858 PRINT" GAME OVER" 
1668 LOCATE 0,13 ゲー ム オ ー パ ー 
1870 PRINT" €?1h*" PU?A2? (Y/ND5"; 


1880 I$-INPUTSCI) 
1890 IF I$-"y" OR I$-2"Y" THEN RUN 
1900 IF I$-"n" OR I$-"N" THEN CLS:END 
1918 GOTO 1886 

1920 КЕМ deen コウ カオ ン ФФ 
1938 SOUND 0,100:50ММ0 1,16 
1940 SOUND 2,100:S0UND 3,4 
1950 SOUND 4,1898:S0UND 5,226 
1968 SOUND 6,11 :SOUND 7,&HCC 穴 掘 の 音 
1778 SOUND 8,16 :SOUND 9,16 

1980 SOUND16,16 :500М011,50 
1998 SOUND12,36 :SOUND13, 9 
2000 RETURN 

2816 SOUND 6,255:SOUND 1,255 
2020 SOUND 2,23 :SOUND 3,285 
2038 SOUND 4,22 :SOUND 5,215 
2840 SOUND 6,10 :SOUND 7,&HF1 Js 
2058 SOUND 8,16 :SOUND 9,16 ROS 
2060 SOUND10,14 :SQUND 1 1, 42 
2076 SOUND12,36 :SOUND13, 8 
2680 RETURN J 


ze ка 
道 を ふさ ぐ 


画面 作成 


ワン ポイ ント ・ テ クニ ッ ク 


PRINT ЖЕ WRITE 文 に つい て 
------2--2-.-2................... ....................................., 
РАМТ xc, “(ダブ プル クォート ) を 出し た いと き に は , どう する で し ょ う 
? 
た ぶん PRINT CHR$ (34) と し て いる と 思い ます 。 118, 2 個 な ら , < 
れ で も 良い の で す が , 10, 20 個 と な る と 大 変 で す 。 た だ 単に 表示 させ る た め 
だ け な ら ば , STRING$ を 作る 手 も 有 り ま す が , も っ と 色々 な 文字 を 出力 し 
た いと き は , どう する の か ? 

そこ で 利用 で きる の が , WRITE 文 を 使用 し ます 。 こ れ で あれ ば キー ボー 
ド か ら 打 ち 込 め る 文字 (コン トロ ー ル キー を 除く ) が 直接 表示 さき せる こと が で 
きま す 。 


es 


9 


ote 


1 —— 


ファ ンク ショ ン キ ー と INPUT$ に つい て 
———— M 
X 1 に は 5 個 (SHIFT を 合わ せる と 10 個 ) の , ファ ンク ショ ン キ ー が あっ 
<, 非常 に 便利 な の で す が , その 内 容 を 定義 せる の が 非常 に 不便 で す 。 単純 な 
文字 列 な ら 良 い の で す が 。 REZ, >, {, +, К, Г’ ШЕЕ KEY 1 
に 入れ る と し た 場合 は 、 KEY1, CHR$ (28 +CHR$ (29) +CHR$ 
(30 +CHR$ (3) +CHR$ (11) +CHR$ (12) と な っ て し まい ま 
+, これ を うま く 定 義 む する の に , INPUT$ が 利用 で きま す 。 た と えば 前 の 例 
£, INPUT$ を 使用 し て 定義 する に は KEY 1, INPUT$ (6) [CR と し て 
か ら 順 に 定義 せ する キー を 押し て いけ ば 良い わけ で す 。( ) 内 の 数 字 は 定義 する 
文字 列 の 字数 で す 。 なお, INPUTS を 実行 中 は カー ソル が 出る だ け で , 打っ 
た 文字 は 画面 に は 出力 され ませ ん 。 


eee. Я 


=. 


% 
% 


уде ны ананас EE CESSES 


ニー ニニ ニニ ニニ ニニ ーー ニー ニー ニー ニー ニー ニーーー 


つつ 


INJ AMIE 


| 024 J トウ VER 1.0 ШШ 


n4») 46°90? 138 


)PYRIGHT 1983 BY HEART SOFT ШЕШ 


ハノイ の 塔 と いう パズル ゲー ム で す 。 数字 の 付い た 板 
数 字 の 大 き 


こめ ダー ム は 。 

"を 1 番 の 塔 か ら 3 番 の 塔 へ 移し か える ゲー ム で す 。 REL, 
いも の の 上 に 小さ きい も の は の せら れ ま す が 。 小さき いも の の 上 に 大 きい も 
の を の せる こと は で きま せん 。 ゲー ム が 終わ る と , シビ ア な 判定 が まっ 
て いま す 。 最 小 回 数 で 終 れ ば 天 オ で す 。 ち な み に 3 つの 板 を 使っ た と き 


の 最小 回 数 は , 7 回 で す 。 以 下 に 正解 例 を の せ て お きま す 。 ど うし て も 
と け な い と き に 見 て 下さ きい 。 


А MEEME R 
L lila Гы А 


CS 


12. ハノイ の 塔 
ゲー ム の 遊び 方 


初め , 板 は 1 番 の 塔 に あり ます 。 動か す と き に は , 例え ば 1 番 の 塔 か 
ら 3 番 の 塔 へ 移し た いと き は 13 と いう よう に 2 ケタ の 数 字 を 入力 し ま 
3. 入力 を 間違え た と き は , 3 文字 以上 入力 すれ ば 入力 が や り 直 せま す 。 
各 ゲ ー ム の 最小 回 数 は 板 の 数 を nm 個 と し ます と , 2" 一 1 で て 表わさ る れ ま 
35 


ШШШ n)4 J トウ VER 1.0 ШЕШ 


1 N44) 4k*55? 128 


NEN CCICOPYRIGHT 1983 BY HEART SOFT ШШШ 


変数 表 


А (п) > ОЖ 
N… 板 の 数 
D… 板 を 取る 塔 
Ed è E < I8 

S つ 移動 する 板 の 位置 
T つ 移動 する 板 の 大 きき 
1 っ ラル ー プ 用 (時間 待ち ) 


12. ハノイ の 塔 


КЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
КЕМж ШЕШШ NN ノイ / К? VER 1.0 MEEN 
[C1COPYRIGHT 1983 ЗЯ 
КЕМж FOR SHARP-X1 BY HEART SOFT 
КЕМж 


КЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
18 DIM AC25),B8¢7),C(¢7) 


ТЕТИК 
a 
š 
X x Xx X NR 


26 FOR 1=1 TO 7:C (ID =1:МЕХТ 1— £ &2 5 2 1-5 OXEK 
30 B$(0)=" " 

48 B$(1)=" B " 

50 B$(2)=" Em] " 

60 BS(3)=" — = | = 

70 B$(4)-" mw” " вот 

80 B$(5)=" Rm " 

90 BS(6) =" EEE” 


100 BS (7) =" SRR" 

110 CONSOLE @,25:WIDTH 40:PRINT CHR$(12); 
120 LOCATE 8, 1:COLOR 7 

130 РКІМТ "Ш い ノ イ 2 F? VER 1.0 ШШШ"; 

140 LOCATE 8,23 


150 РКІМТ"ЕШИЯ CCICOPYRIGHT 1983 BY HEART SOFT ШЕШ" メッ セー ジ 出 カ 


160 LOCATE 16,12:PRINT"72Y437" мы“ メ マ スカ (3- ア ) "5 
170 I$=INPUT$(1) ニー ュー ニー テニ ーーー シー ALD 
180 IF I$«4"3" OR 1%›"7" THEN 178 

190 LOCATE 12,14:PRINTI$;"245" №“ хх. и; 
200 N=VAL (I$) 

210 FOR I=@ TO 1800:NEXT 1 時 間 待 ち 
226 PRINT СНЕФ (11) ; HOME キー を 押し た の と 同じ 
230 FOR X=1 TO 21 

248 A(X) =@!NEXT X 

258 FOR X-8-N TO 7 РЕ 
248 A(X) =Х+№-7:МЕХТ X 盤 の デー タ を 枚数 に よっ て 設定 する 
276 GOSUB 438 

280 W-1 

298 LOCATE 9,29:PRINT ЗРАСЕФ (40) ; 

300 COLOR7T:LOCATE 0,20:PRINTH; "3447 4h*2n"j 

316 INPUTM 

320 IF М=12 THEN D=1 :E-8 

330 IF М=13 THEN D=1 :Е=15 各 処 理 

340 IF M=21 THEN D=8 :Е=1 
350 IF M=23 THEN D=8 :Е=15 


3 — 7 ま て の 数 字 以 外 は 無視 


M の 数 は 10 の 位 が 移動 する 元 の 場所 


368 IF M=31 THEN 0=15:Е=1 1 の 位 が 移動 する 先 の 場所 


376 IF М=32 THEN 0=15:Е=8 
380 IF D=@ THEN GOSUB 730:GOTO 2960 


398 GOSUB 620 — Y 盤 の 移動 ルー チン へ 
499 GOSUB 436 — r 画面 出 カ ルー ナン へ 
410 IF AC22-N)<>@ THEN 756 完成 し た と き の ル ー チ ン へ 


428 GOTO 296 ーーーーー で も 3 1 度 移動 させ る 

488 COLOR 7:PRINT СНАФ (11); 

448 LOCATE 8,1 

450 PRINT" MMM N74 2 К? VER 1.0 MUN"; 

460 LOCATE 0,23 

470 PRINT"IEBE CCICOPYRIGHT 1983 BY HEART SOFT ШШШ" 
480 LOCATE 3,5:COLOR1:PRINT" 17 M2"; 

490 LOCATE16,5:COLOR2:PRINT" 27 ho"; 

500 LOCATE29,5:COLORSé:PRINT" 3 ノ h2"; 

510 LOCATE 0,10 

526 FOR X=1 TO 7 

530 COLOR СА >) iPRINT B$(AQC ››; —— 108€ 
548 COLOR C<(A(X+7 )) 1:PRINT B$((AOG7 299; 2 N 
558 COLOR C(A(X+14)):PRINT B$(A(X+14));" ";,—3 OB 
566 NEXT X von TT 

578 LOCATE 0,17 C(n) に カラ ー コ ー ド が 入っ て いる 
588 COLOR1:PRINT STRINGS (13, "Ш" >; š PRESS 
590 COLOR2:PRINT STRING$ (13, "Ш" >; STRINGS(n, ー”) は 
6408 COLORS:PRINT STRINGS (13, go; - を n 個 出力 する 命令 
610 RETURN 

626 S-0:T-0 

638 FOR X=D TO 0+6 

é40 IF S<>9 THEN る る 9 

458 IF AOO«»8 THEN S-X:T-A OO 


画面 出 カ ルー チン 


12. 


ハノイ の 供 


ハノイ の 塔 


668 
670 
$88 
698 
700 
710 
726 
738 
740 
750 


NEXT X 

IF $20 THE 
FOR XsE TO 
IF ACS) =0 

IF ACX+#+1)> 
NEXT Х 

IF ACS) =9 


BEEPI!LOCATES,21:PRINT"v22*4 7724 ";j:PAUSE 18:LOCATE 0,21:РКІМТ SPACES (39) ; 


RETURN 
REM 

FOR Ізі TO 
FOR Ізгі TO 
BEEP 

NEXT I 
COLOR 4:0 


N 738 盤 の 移動 処理 
Е+6 

OR ACX)<>@ THEN 716 

T OR XsE*ó THEN A OO =T:A (S> =9 


THEN W=W+1:RETURN 


500:МЕХТ I 
18 


完成 し た と き の ル ー チ ン 
CATE 10,10 ベル を 10 回 な ら す 


PRINT" "jW-1;"2473" ЖАЛАУ“ R. "3 


Q=1:FOR X= 
Q=Qx2 

NEXT X 
LOCATE, 15, 
IF W=Q THE 
IF W>Q AND 
IF W=>Q+0/ 
IF W»z2xG 
LOCATE 18 
PR 1NT "モウ 1 ト 
I$2INPUT$( 
IF ІФ= "у" 
IF ІФ= "п" 
GOTO 920 


1 TO N 


12 
М PRINT "テン サイ ?"2."j 
W«G*Q/2 THEN PR INT "21294 2724 "j 
2 AND И‹2ж0 THEN PRINT" 294 7728") 
THEN PRINT"? テス ョ リョ 
314 
` РУЗАЛ? (Y/N) "; 
15 
OR ІФ="Ү" THEN RUN 
OR I$-"N" THEN CLS:END 


シビ ピア な 成 積 発 表 


キー 入力 再 ゲ ー ム か 否 か 


ШШШ リリ イ J) トウ VER 1.0 ШШ 


3) +9 


7 943 eindt 2s 
す ン サイ 772. 


€£51k^ PU22p? «Ү/МОШ 


7 h44) イト この N? 18 


ШШШ CCICOPYRIGHT 1983 BY HEART SOFT MEN 


Г + 3 


ШЫН CCICOPYRIGHT 1983 BY HEART SOFT MN 


この ゲー ム は ,。 ネバ タ の 賭博 場 で 最も ポピュラー な ギャ ンプ ブル ゲーム 
で す 。 ゲー ム は 2 つの サイ コロ を 使用 し ます 。 プロ の 人 は うま く サ イコ 
ロ を あや つれ る そう で す が , 本 機 で は イカ サマ は で きま せん 。 運 を 天 に 
まかせ まし ょ う 。 こ の プロ グラ ム の 見 所 で す が , 同じ こと を する 処理 は , 
極力 サブ ルー チン に し て し まい まし ょ うと いう こと で す 。 こ の プロ グラ 
ム で いえ ば , サイ コロ を 表示 する ルー チン で す 。 1 つ 目 の サイ コロ も 2 
つ 目 の サイ コロ も 同じ サブ ルー チン を 使用 し て いま す 。 た だ , 同じ サブ 
ルー チン を 違う 目的 の た め に 使用 する 場合 は , 変数 の 受け 渡し に は 極力 
注意 が 必要 で す 。 これ を キチ ン と し て お か な けれ ば 後々 デバ ッ ク の と き 


に 困る こと に な り ま す 。 


13. クラ ッ プ ス 
ゲー ム 遊 び 方 


iW, 賭け 金 を 入力 し ます 。 す る と 2 ヶ の サイ コロ が 表示 きれ ます 。 
その 2 ヶ の サイ コロ の 目 を た し た 数 が 7 また は 11 な ら ば あな た の 勝ち 
2 か 3 また は 12 が 出 た と き は , あな た の 負け に な り ま す 。 も し それ 以外 
の 数 が 出 た 場合 は , も う 1 度 振り 直し で す 。 2 回 目 か ら は 同じ 数 が 2 度 
続け て 出 た 場合 は , あな た の 勝ち , 7 が 出 た 場合 は , あな た の 負け に な 


り ます 。 単純 な アー ム で すか が 単純 だ か ら こ 


な 
15 
H 
«t 
| 
e 
x 
| 
> 
п 
ot 


っ た の か も し れ ま せん 。 で は , あな た に ご 幸運 を . グ 


ШЕН ЗНАРР-Х1 CRAPS GAME VER 1.0 ШЕШЕ 


ШШШ CCICOPYRIGHT 1983 BY HEART SOFT ШЕШ 


変数 表 


I $ っ キー 入力 用 

K $… 入 力 し た 変数 の 仮 代入 用 
P1 一 P 4 一 各 サ イコ ロウ の 数 

X, Y ラ サイ コロ を 表示 する 位置 
S —#y t 

KHU £ 

1 っ ラル ー プ 用 (時 間 待 ち ) 


13. クラ ッ プ ス 


CRAPS・ フ ロー チャ ー ト 


初期 ルー チン 


画面 作成 


も ち 金 より 
多い か 


NO 


1 つ 目 の サイ コロ 
を 表示 


2 つ 目 の サイ コロ 
を 表示 


クラ ッ プ ス 


1 КЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
2 REMx ж 
З REMX 4449 CRAPS GAME VER 1.0 4449 ж 
4 КЕМж ж 
5 КЕМж [CICOPYRIGHT 1983ж ЗЯ ж 
6 КЕМж ж 
7 КЕМж FOR SHARP-X1 BY HEART SOFT ж 
8 КЕМж ж 
9 КЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


18 CONSOLE 8, 25:WIDTH 40:S=1000 
26 COLOR 7:CLS 

30 COLOR7:PRINT" MAS SHARP-X1 CRAPS GAME VER 1.0 Em "J 

40 LOCATE 0,23 画面 作成 
58 COLOR7:PRINT"IEER ІСІСОРҮКІОНТ 1983 BY HEART SOFT ШЕШ"; 

48 LOCATE 12,2:COLOR 4 

78 PRINT "モテ キン "38j "В Z, " 

80 LOCATE 19,3』COLOR 4 

980 PRINT"425 カケ マス カ 『 5 


100 INPUT KiK=INT(K> — —— RESO A 7) | 
118 IF K<1 THEN 60 ーーーー 一 1 より も 小さ けれ ば や り 直 し 
120 IF K>S THEN 66 — — — 持 金 より 多けれ ば や り 直 し 


138 P1=INT<RND (1) る)+1 1 コ 目 の サイ コロ の 数 

148 X=10:Y=7:COLOR 5 

150 ON P1 GOSUB 758, 868, 976, 1080, 1190, 1308 — 各 サ イコ ロ 表 示 ル ー チ ン へ P 1 が 目 に な る 
166 P2=INT(RND (1) る) +1 2 コ 目 の サイ コロ の 数 

178 X=20:Y=7:COLOR 5 

180 ON P2 GOSUB 758, 866, 97а, 1080, 1196, 1388 各 サ イコ ロ 表 示 ル ー チ ン へ , P 2 が 目 に な る 
190 COLOR S:LOCATE 12,18:PRINT USING'"42S";P14P2; PRINT" n° 53549, "j 


206 IF Р!+Р2=7 OR РізР2-11 THEN 378 7 か 11 が 出 た ら 勝 ち 

218 IF Р!+Р2=2 OR Р2+Р2=3 OR P1+P2=12 THEN 448 

228 COLOR 6:LOCATE 10,280:PRINT"£21h* 72»722*94."; 数 に よっ て 画面 が . くず れる の を 防ぐ 
238 1%$=1МРУТ$ ‹1) ーーーーー キー 入力 待ち 

248 РЗ=ІМТ (ЕМО (1) る)+1 ———- 3 コ 目 の サイ コロ の 数 

250 X=10:Y=7:COLOR 5 

260 ON РЗ GOSUB 756, 86а, 976, 1088, 1190, 1308 —— 各 サ イコ ロ 表 示 ル ー チ ン へ , P3 が 目 に な る 


278 Р4=1МТ (КМО (124) +1 4 コ 目 の サイ コロ の 数 

280 X=20:Y=7:COLOR 5 А 
290 ON P4 GOSUB 750, 840,970, 1080, 1190, 1300 各 サ イコ ロ 表 示 ル ー チ ン へ , P4 が 目 に な る 
380 COLOR る :LOCATE 12,18:PRINT USING"##";P3+P43;:PRINT" p" テマ シク 。 "j 
316 IF P1+P2=P3+P4 THEN 528 — — ——— 前 と 同じ 数 が 出 た ら 勝ち 
329 IF P3+P4=7 THEN 598 — 7 が 出 た ら 負 け 

330 Pi=P3:P2=P4 

348 COLOR 4:LOCATE 10,20:PRINT"t21h" 29929594478) 

356 1%=1МРОТ$ (1) 

360 GOTO 240 

370 S=S+K:LOCATE 8,5:COLOR 6 

380 PLAY"OSG7D7F7E7G7D7F7E7G7D7F7E7G7" 勝ち 1 回 目 用 

390 PR1INT" ア ナタ ノ カチ 972. ";8; "Аў. " 

408 LOCATE 7,26:COLOR 6 

418 PRINT" БЕТ%- э オシ テク クタ" サイ 。 "3 

420 ІФ=ІМРОТФ (1) 

азе GOTO 20 

440 S-S-K:LOCATE 8,5:COLOR 2 

458 PLAY"O4F7E7F7D7E7D7C7 " 

460 PRINT"772) v5 9"z.";8; "Ву, " 負け 1 回 目 用 

479 IF S=<@ THEN 670 持ち 金 が 無けれ ば 破産 

488 LOCATE 7,20:COLOR 6 

498 PRINT" RETH- э 39522*94."; 

508 I$=INPUTS(1) 

518 GOTO 20 

520 S-S«K:LOCATE 8,5:COLOR 6 

530 PLAY"OSG7D7F7E7G7D7F 7E7G7D7F7E7G7" 

540 PRINT" 779) カチ 39"2.";S; "Hi^ Z," 勝ち 2 回 目 以降 用 

550 LOCATE 7,20:COLOR 6 

560 PRINT" RET*- э 1»522*94."; 

570 ІФ= ІМРОТФ (1) 

580 GOTO 20 

590 S=S-KILOCATE 8,5:COLOR 2 

る 99 PLAY"O4F7E7F7D7E7D7C7" 

618 PRINT" ア ナタ ノ マ ケ 972. "5; "AF Z. " 負け 2 回 目 以降 用 

る 29 IF S-40 THEN 670 

638 LOCATE 7,20:COLOR る 

640 PRINT" RET- э オシ テク タ ト ドサ イ 』『" 

650 ІФ=ІМРОТФ (1) 


13. クラ ッ プ ス . 


668 GOTO 20 
$70 LOCATE 8,5:COLOR 2 
680 PRINT" VAAN 092 »Y^ "5 破産 ルー チン 


698 LOCATE 8,20:COLOR 6 

700 РВІМТ "モウ 1 ト ~ ヤリ マス カ ? (Y/ND"; 

710 IS$2INPUT$(C125 

720 IF I$z"Y" I$zs"Y" THEN RUN }ж-А» 

730 IF I$="n" I$="N" THEN CLS:END 

740 GOTO 718 

750 ВЕЕР 

760 LOCATE Х,У  :PRINT" ——ə— 

770 LOCATE X,Y*1:1PRINT"| | 

788 LOCATE X,Y+2:PRINT" | | 

7980 LOCATE X, Y*3:PRINT"| | 

800 LOCATE X,Y*4:PRINT"| e |" 
I 
| 
| 


以下 各 サ イコ ロ 表 示 ル ー チ ン 


818 LOCATE X, \+5:РАТМТ" | 
820 LOCATE X, ҮзбіРКІМТ"І 
830 LOCATE X, Y+7:PRINT" | ; 
840 LOCATE X,Y*8:1PRINT" ——"j 
858 RETURN 

860 ВЕЕР 

870 LOCATE X,Y PRINT" つつ " 
888 LOCATE X, Y*1:PRINT" | | 
898 LOCATE X, \+2:РАТМТ" | в | 
ァ 99 LOCATE X, \+3:РА ПМТ" | | 
910 LOCATE X,Y*4:PRINT"| I 
920 LOCATE X, Ү+5:РКІМТ" | ! 
930 LOCATE X,Y+é:PRINT"I e| 
940 LOCATE Х, Y+?:PRINT" | | 
950 LOCATE X, Y+8:PRINT" ———23" 
968 RETURN ` 
970 ВЕЕР 

980 LOCATE X,Y IPRINT" ェ ーーーー "i 

990 LOCATE X,Y*1:PRINT" | ч 

1808 LOCATE Х, Ү+2:РКІМТ" | е ез 

1010 LOCATE X,Y+3:PRINT" | 8% 

1020 LOCATE X,Y*4:PRINT"| e "3 

1838 LOCATE X, Y*S5:PRINT" | |"; 

1040 LOCATE X, Y*ó:PRINT" | el"; 

1050 LOCATE X, У+7:РАТМТ" | 1*3 

1060 LOCATE X, Y*8:PRINT" エーーー "; 

1078 RETURN 

1080 ВЕЕР 

1090 LOCATE X,Y PRINT" г"; 

1100 LOCATE X, Y*1:PRINT"| 

1118 LOCATE X,Y*2:PRINT" | 

1120 LOCATE X, Ү+3:РКІМТ" | 

1130 LOCATE X, \+4:РАТМТ" | 1"; 
1140 LOCATE Х, Ү+5:РКІМТ" | 

1150 LOCATE X, Y*ó:PRINT" | 

1160 LOCATE X,Y*7:PRINT"| 

1170 LOCATE X,Y*8:PRINT" ————2"j 
1188 RETURN 

1190 BEEP 

1200 LOCATE Х,У  :PRINT" ——" 
1218 LOCATE X,Y*1:PRINT"| 

1220 LOCATE X, Y*2:PRINT"| 

1230 LOCATE X, Y*3:PRINT" | 

1240 LOCATE X,Y*4:PRINT"| e |"; 
1250 LOCATE X,Y*S:PRINT"| 

1260 LOCATE X, Y+é6é:PRINT" | 

1278 LOCATE X,Y*7:PRINT"| 

1280 LOCATE X,Y*8:1PRINT" ————23"j 


1298 RETURN 

1300 ВЕЕР 

1310 LOCATE X,Y  :PRINT" ——— "$ 
1320 LOCATE X, Y*1:PRINT"| 1"; 
1338 LOCATE X,Y*2:PRINT"|e el"; 
1340 LOCATE X, Y*3:PRINT" | М. 


1350 LOCATE X, \+4:РАТМТ" | ® 91"; 
1360 LOCATE X, Ү+5:РКІМТ" | |"; 
1378 LOCATE X, \+6:РАТМТ" | ө el"; 
1380 LOCATE X,Y+7:PRINT"I "; 
1390 LOCATE X, Y*8:PRINT" ——— —23À"; 
1480 RETURN 


この ゲー ム は コン ウェ イ と いう 人 が , 発明 し た 生物 の 生 と 死 を あつ か 


っ た シミ レー ショ ン ゲ ー ム で す 。 本 機 の 画面 に 含 わ せ て 15X15 の ミニ 
版 を 作成 し まし た 。 15х15 の ます 目 に ある 生物 が 点 在 し て いま す 。 隣 
り に 3 つい る と 次 の 世代 で は 新た に 生ま れ , それ 以下 で は 死に 絶え ます 。 
また , 過密 状態 で も 食糧 不足 の た め 死 ん で し まい ます 。 次 の 世代 の 状態 
は 周囲 の 状態 に よっ て 次 の よう に 定まり ます 。 


現在 周囲 8 つの 状態 次 の 世代 


0 3 1 
0 0 1 2 4 以上 0 
1 23 1 
1 0 1 4 以上 0 


この プロ グラ ム で は 元 に な る 生物 を 指定 する 作業 を スク リー ン エ ディ 
ッ ト で 行っ て いま す 。 BASIC で スク リー ン エ ディ ッ ト を つく り た い 人 


て 下さ い 。 な お , 生物 の 状態 が 永久 レー プ に な っ て し まっ た 


場合 の 判定 を し て いま せん の で , 適当 な 所 で BREAK L < F š u, 


14. ライ フ ゲ ー ム 
ゲー ム の 遊び 方 


始め に 生存 する 生物 の 場所 を 入力 し ます 。~*” 以外 の 文字 を 入れ て 下 
さい 。 入れ 終っ た ら RETURN キー を 押し て 下さ い 。 な お , 15Х15 の 
わく を は み 出 て し まっ た 場合 は , 自動 的 に 0 に モッ ト し て いる た め , E 
し い 状 態 に な ら な い 場 合 も あり ます の で 御 注意 下さ い 。 最初 に 設定 する 
数 は 多め の 方 が 良い で し ょ う 。 以下 に 比較 的 お も し ろ い パタ ー ン を の せ 
て お きま す 。 


変数 表 


X (n, m) っ 画面 表示 用 

У (n, m) 一 次 の 状態 を 求め る た め の 
作業 用 仮 変数 

S つ 回 り の 状態 の 生物 の 数 

T つ 世代 数 


14. ライ フ ゲ ー ム 


КЕМЖ @@@@@ LIFE GAME U1.0 $4444 
[CICOPYRIGHT 1983ж 3A 


REM FOR SHARP-X1 BY HEART SOFT 


x 0 0 GQ P O № 
= 
$ 


КЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
10 DIMX(15, 15), Y¢15, 15) 
20 CONSOLE @,25:WIDTH 46 
36 COLOR 7:CLS 
46 LOCATES, 1:РАТМТ "54 LIFE GAME VER 1.0 EBEN" 


5@ COLOR é 

88 LOCATE2S, 3:PR INT "カイ スウ = ェ 9" 

78 COLOR 7 画面 作成 
88 LOCATE7,24:PRINT"x FOR SHARP-X1 BY HEART SOFT ж"; 

90 COLOR 4 


160 LOCATE16,5:PRINT" 123455789012345" 
110 LOCATEO, 7 

128 FOR I=1 TO15 :РАТМТТАВ (10); 

136 COLOR 4 

148 PRINTUSING "##"3 I; ————— 画面 を 《( ず さ な い よう に する た め 
156 PRINT" "; 

168 FOR J=1 TO 15 

178 COLOR 5 

188 PRINT". "3 

198 NEXT J:PRINT:NEXT I 

280 COLOR 2 

210 LOCATE13,7 


228 ІФ=ІМРОТФ (1) :PRINTI$; ——— カー ソル を 出し て の 1 文字 入力 (INPUT$(1) だ け で は 押し た 文字 が 出力 
230 IF 1 まく >CHR く 13〉 THEN 228 — RET を 押し た か 判定 され な い の で PRINT 文 で 表示 ) 


248 FOR I-7 TO 21 

256 FOR J=13 TO 27 画面 ) 
260 I$=CHARACTER$ (j, ュー ХЕ = J, Y 座 標 =| の 画面 に 何 が ある か を 読み 取る 画面 読み 取り 
2780 IF I$4»". "THEN X(I-6, J-12) -1ELSEX(I-6, J-12) =@ 

288 NEXT J:NEXT I:CLS 

298 COLOR 7:PRINT CHR$ 411); ` カー ソル を 最上 段 左 端 へ 持っ て い 〈 — HOME 
388 T-T*1:LOCATESB, 1:PRINT"EBEE LIFE GAME VER 1.0 MEN" 

310 COLOR é 

320 LOCATE28,3:PRINT"24222";T 

339 COLOR 7 

346 LOCATE7,24:PRINT"x FOR SHARP-X1 BY HEART SOFT ж"; 画面 作成 
358 COLOR 4 

360 LOCATE10,5:PRINT" 123456789012345" 

378 LOCATE®, 7 

388 FOR Ізі TO 15:PRINTTAB (105 ; 

390 COLOR 4 

400 PRINTUSING "##"3 I; 

410 PRINT" "; 

428 FOR:Js1 TO 15 

436 IF X¢I,J)=@ THEN COLOR 5:PRINT", "; = 

440 IF X(1,J)=1 THEN COLOR 2:PRINT"4"; 生物 ・ 空 白 を 表示 する 

450 NEXT J:PRINT:NEXT I 

468 FOR 1=2 TO 14:FOR J=2 TO 14 

478 $1=Х (1-1, 1-1) *XCI, J- 12 *XCI *1, J- 12 

488 S2-X(1-1, JD *XCI*1,.D $ 

498 $3=Х (1-1, +12 +Х (1, Je 19 +Х (1+1, Je 1) 計算 ルー チン , は み 出 て し まっ た と き は 無視 する 
500 5=51+52+53 

510 IF S=3 THEN Y(I,J)=1 

520 IFS-2A5NDX(I, Ј) -1THENY CI; 72-1 

520 NEXT J:NEXT I 

540 FOR 1-2 TO 14:FOR J-2 TO 14 

550 X(I, J2 5YCI Jo: YI, J) 28 | 変数 処理 

568 NEXT JiNEXT I:GOTO 298 


14. ライ フ ゲ ー ム 


EN LIFE GAME VER 1.0 ШШ 
Жез 


SHARP-X1 BY HEART SOFT * 


ラン ダム テク ニッ ク の 色々 
*PRINTCHR$ (12) >, PRINTCHR$ (12), の 違い に つい て 。 
前 者 を 実行 する と 。 カー ソル は , 1 の 場所 に 有り ます が , 後者 は 9, 9 の 


場所 に な り ま す 。 


; 
i 
; 
; 
; 
{ 
ЕДЕ 2 5 

} LOAD, SAVE な どの , ファ イル 名 に 変数 が 使え を ます 。 た と えば , I $= 
| ‘РАС’ :J$= "MAN" と し て お いて 、SAVE 1T$ 十 J$ と する と , 
| “PACMAN” と いう 名 前 で SAVE し た こと に な り ま す 。 ま た , も っ と 一 
4 

| Ши, 1$= “PAC” と し て , SAVE I $+ “MAN” と し て も 同様 で 
4 
し 


1 
4 
4 
$ 
1 
$ 
1 
% 
% 
% 
% 
% 
% 
% 
` 
4 
` 
4 
1 
4 
` 
4 
` 
4 
% 
% 
% 
% 
1 
4 
` 
$ 
$ 
4 
` 
4 
1 
4 
` 
4 
` 
4 
` 
4 
1 
4 
` 
4 
` 
4 
% 
| 
1 
4 
` 
4 
1 
4 
4 
4 
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4 
1 
4 
` 
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15 | 
スー パー・ ロ ー リ ング ・ ク ラッ シュ 


この ロー リン グ ・ ク ラッ シュ は , HEAD 一 ON の 変形 版 で アー ムセン 
ター な ど に 置い て ある も の と 同じ で す 。( も う 置 いて いな ぃ い 所 も 多い と 思 


いま す が ……。 ) 知ら な い 人 の た め に ルー ル を 説明 し ます 。 コー ス の 中 に 
ある ドッ ト を 相手 の 車 に 。 ぶつ か ら な いよ うに し て 消し て いく ゲー ム で 
3. コー ス 変 更 の で きる 場所 は 全部 で , 5 ヶ所 あり , 相手 は 上 下 の 移 動 
し か し ませ ん が 自分 の 車 は 左右 ・ 上 下 に 移動 する こと が で きま す 。 相 手 
の 車 は 一 定 の スピ ー ド で 移動 し て きま す が , こち ら は アク セル を 使う こ 
と に よっ て 自由 に スピ ー ド を 調節 する こと が で き , すべ て の ドッ ト を 消 
せ ば 一 面 ク リア ー で ボー ナス 点 が 加算 きれ ます 。 


15. スー パー・ ロ ー リ ング ・ ク ラッ シュ 
ゲー ム の 遊び 方 


コー ス の 移動 は . テン キー 側 の 2 一 ()。 4-9, 6-48, 8(0Dc3. 
フル キー 側 の キー は 使え ませ ん 。 ア クセ ル は スペ ー ス キー で , 押せ ば 加 
速 し 離す と 減速 し ます , この キー は 移動 キー と 一 緒 に 押し て も 判定 し て 
くれ る よう に な っ て いま す 。 高 得点 の コッ は 左右 移動 の 場所 を 有効 に 使 
うこ と で す 。 それ と コー ス に 入っ て し まう と 身動き が で き な い た め , Ж 
手 を 先 に 移動 きせ て し まう こと で す 。 面 を 重ね る と ドッ ト 上 単位 の 点数 が 
高く な り , 5 面 も 消せ れ ば 達人 で す 。 


座標 


画面 の コー ス 


変数 表 


X, Y つ 自分 の 車 の X, YER P= 自分 の 車 の 座標 No (1—6) 
S, LoltoSoXx, Y 座 標 RLM HD ERRNO. (1 一 6 ) 
XX, YY つつ 進行 方 向 (自分 ) Z つ 消し た ドッ ト 数 

SS, LL 進行 方 向 (ük) V つ VRAM の 先頭 番地 


U っ 英 の 車 の 行く 先 の キャ ラク ター 


15. スー パー・ ロ ー リ ング ・ ク ラッ シュ 


ロー リン グ ク ラッ シュ ・ フ ロー チャ ー ト 
相手 と ぶっ か っ た 時 


初期 設定 


YES 
得点 を 加え る | 
wu a © 


NO 
相手 の 位置 へ 
近づけ る 


— pes 
— 


vo RETURN 


スー パー・ ロ ー リ ング ・ ク ラッ シュ 


R ou 


| 
lI 
228 PRINT" || 
238 PRINT" || 
240 PRINT" || 
E 
PI 

| 


1 
2 КЕМж ж 
З REMK ШШШ Super Rolling Crash EEE ж 
4 REMx ж 
5 ВЕМж [CJ Copyright 19332 ЗЯ ж 
é ВЕМж ж 
7 ВЕМж For SHARP-X1 By Heart Soft ж 
8 КЕМж ж 
9 ВЕМжжжжжжжжжжжжжжжжжжжжюкжжжжжжжжжжжж 
18 GOSUB 2246 
20 GOTO 376 " LL фл 
зв COLOR 5:сіе "9 1 1 š 
да PRINT" m x 
SO PRINT” aw журуй» | 
る 9 PRINT" |.r———— ----.1! ШҒы 
70 PRINT" 151...... Sas БІЛ ІІ" 
S8 PRINTS に ーーーー is [И [е^ 
SU PRINT [elie res. 5а». Tete И Jt * 
100 PRINT" |. |. |. гғ------..1.,1.11 P ы 
118 PRINT" | | ls 15-15-17 >. fi * 
128 PRINT" | | [5:15:15 1 аера ұр š 
138 PRINT" [oTo Iy P ss 4 
140 PRINT Jalg] < wa waw s ma pies qaa dd drxrET i Ë ЕВ 
156 PRINT" |. la ————————————— ーーーーーーーーーー コ 。| " コー ス の 表示 
160 PRINT" |, | ¿asss esa... ча Sg чекиста ШЫ 
170 PRINT" |, ——— — ly 1: * 
VSO PRINTY Lasse Батаны көб жа ud asi l 15151 * 
190 PRINT" ——ə=—ə n - n—M——pIT I. | “ 
200 PRINT" | ーー PE | ІШ 
218 РБІМТ" in] | Бы 
.--- M. 
ЕСТІ | 
4 Шы 
250 PRINT" $ et 
268 PRINT" (Heart $04411. ———— --.і" 
278 PRINT" | ーー (Wass “ASKA ы fot 


«dB РНЕ Аа 


276 COLOR 4 


308 LOCATE 3,18:PRINT"HU スー いやー 00" 
3818 LOCATE 3, 1?1PRINT" — n-uy2* " 
зга LOCATE 3,20:PRINT" クラ ッシュ ша" 
33@ COLOR 3 画面 出力 用 


346 LOCATE 25,3:PRINT"High Score" 

356 LOCATE 25,5:PRINT"Your Score" 

360 RETURN 

378 REM MINE 

S86 CONSOLE 8,25:CLICK OFF 

390 WIDTH 49:SC=giN=5iD=5 — キー の クリ ッ ク 音 を 消す 
аве GOSUB зе 

416 Х=27:Ү=23:5=26:1=23:Р 
420 XX=0:YY=0:SS=0:LL=0:Z 
488 COLOR 7 

448 ON P GOSUB 540, 646, 746, 46, 946, 1048 自分 の 車 を 動か す オル ー チ ン へ 

458 X=X+XX: Y=Y+YY pa d 

420 V=1:G0TO 2086 ぶつ か っ た か の 判定 ルー チン へ 

478 1=1+1:1Е INKEY$(0)=" " AND 1>2 THEN I=G:GOTO 51@— スペ ー ス を 押し て いる と き は 加速 する 


480 COLOR 7 
498 ON R'GOSUB 1120,1230, 13260,1436, 1510, 1520 敵 の 車 を 動か す オル ー チ ン へ 
ぶつ か っ た か の 判定 ルー チン へ 


1:К=1;:Р=1:С=1 
e 


506 S=S+SS:L=L +11. 

518 り =2:GOTO 2080 

520 IF Z-218 THEN 1920 
536 GOTO 436 ) 
540 КЕМ ИН MOVE 1 ШШШ ン 
558 IF CHARACTERS(X, Y)="." THEN Z-Z*1:G08UB 1766 | 


568 LOCATE X,Y:GOSUB 21&8:XX-1:YY-O 

576 IF X=32 AND Y=19 THEN P=2:XX=0:G0TO 636 

588 IF X=34 AND Y-21 THEM P:2:XX-8:GDTO 638 コー ス 変 更 用 
590 IF X=36 AND Y=23 JHEN P=2:XX=0:GOTO 636 

608 IF X<26 OR 027 THEN GOTO 636 

&18 IF INKEY$(@)="8" AND K<3 THEN KsK*1:LOCATE X,Y:PRINT" " 
ó20 IF INKEY$(@)="2" AND K>1 THEN K=K-1:LOCATE X, Y:PRINT" " 
630 LOCATE X, Y:PRINT" ";:RETURN 

540 REM SUME MOVE 2 ШЕШ u 

650 IF CHARACTER (X, Y) ="." THEN Z=Z+1:GOSUB 1786 


—88— - 
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66@ LOCATE X,Y:GOSUB 216@:XxX=0:YY=-1 
670 IF X=32 AND Y=14 THEN P=3:YY=8:GOTO 736 
666 IF X234 AND Y=12 THEN P=3:YY=0:G0TO 738 
698 IF X-36 AND Y=1@ THEN P-3:YYs0:GOTO 730 2 コース 用 
700 IF Ү(16 ОВ Y>17 THEN GOTO 738 
710 IF INKEY$(022"4" AND К<2 THEN KsK*1:1LOCATE X, ҮЗРБІМТ" "j:X-X-2 
726 IF INKEY#(@)="6" AND К>1 THEN KsK-1:LOCATE X, YtPRINT" "j:XeX«2 
730 LOCATE X,Y:PRINT" "j tRETURN 
740 REM MOVE 3 DHE 
750 IF СНАЮАСТЕК® (x, Узы", " THEN Z=Z+1:iG0SUB 1700 
760 LOCATE X,Y:G0SUB 2140:XX»-11YY»Q 
776 IF Ха2 AND Yald THEN P*4:XX*0:100TO 830 
780 IF Х=4 AND Ys12 THEN Px4:XX»0:GOTO 830 3 コース 用 
790 IF X*& AND Ys10 THEN P*4:xX»0tGOTO 838 
600 ТЕ. X418 OR x»20 THEN GOTO 620 
810 IF INKEY$(0)»"G" AND K»1 THEN KsK-1:LOCATE X, Y1PRINT" "jrYsY-2 
820 IF INKEYS$(0)2"2" AND K43 THEN KsK*1:LOCATE X, YIPRINT" "jrYsYe2 
830 LOCATE X, Y1PRINT" ";:RETURN 
840 REM ШШШ MOVE 4 ШШШ 
850 IF СНАВАСТЕК® СХ, Y)s"," THEN Z=Z+1:GOSUB 1700 
860 LOCATE X, Y!GOSUB 21450:XX201:YY*-1 
870 IF Х=2 AND Ys! THEN P=S:YY=0:GOTO 738 
880 IF Х=4 AND Ys3 THEN P=S:VY=0:GOTO 930 
890 IF X=é AND Үз5 THEN P=5:YY=0:GOTO 930 4 コー ス 用 
900 IF Y<7 OR YO8 THEN 930 
910 IF INKEY#(@)="4" AND K«3 THEN К=К+1:СОСАТЕ X, Y:PRINT" ";:X-X-2 
920 IF ІМКЕҮФ (0) ="4" AND K»1 THEN KzK-1:LOCATE X,Y:PRINT" “у:Ж=х+2 
930 LOCATE X, Y:PRINT" "; RETURN 
940 REM ШЕШ MOVE 5 Du 
950 IF CHARACTER$(X, Ү) =", " THEN Z=Z+1:GOSUB 1799 
960 LOCATE X, Y:GOSUB 2160:xx=1:YY=@ 
970 IF X217 AND Y=5 THEN P=é:XX=0:GOTO 1636 
980 IF X219 AND Y=3 THEN Р=4:ХХ=0:00Т0 1038 5 コース 用 
990 IF Х=21 AND Y=1 THEN P=é:XX=0:GOTO 1636 
1000 IF X411 OR X>12 THEN GOTO 1638 
1010 IF INKEY$(0)-2"B8" AND K<3 THEN Кекті: ОСАТЕ X, Y:PRINT" "3% 
1020 IF INKEY$(@)="2" AND K>1 THEN K-K-1:LOCATE X,Y:PRINT" "j: 
1030 LOCATE X, Y:PRINT" ";:RETURN 
1040 REM ШЫН MOVE < БЕШ 
1050 IF CHARACTER® (X, Y)="." THEN Z=Z+1:GOSUB 1700 
1 IF Y>8 AND Y<16 THEN XX=9:YY=1:RETURN 
[ 1876 Locate X, Y:G0SUB 2160:XX=0:YY=1 
1080 IF X-17 AND Y=23 THEN P-1:YY-0:GOTO 1120 6 コー ス 用 
1096 IF X=19 AND Ys21 THEN Ps1:YY-0:G0TO 1128 
1100 IF X=21 AND Y=19 THEN P=1:YY=6:GOTO 1126 
1110 LOCATE X, Y:PRINT" ";:RETURN 
1120 REM ШЕШ MOVE 1 ШШШ 
1138 US=CHARACTERS(S, L) 
1140 LOCATE $,L:GOSUB 2200:SS=-1:LL=6 
1158 IF S=17 AND L=23 THEN R=2:SS=0:GOTO 1216 


1160 IF 5-19 AND L=21 THEN R=2:SS=6:GOTO 1210 コー ス 変 更 用 

1170 IF S=21 AND し =1 THEN R=2:SS=0:GOTO 1216 кож 
1180 IF 5Х2 ОК 5527 THEN GOTO 1210 » 1 コー ス 用 
1196 IF КОС THEN CsC*1:LOCATE S,L:PRINT" "j:LsL-2 ылы. 

1200 IF K<C THEN CsC-1:LOCATE S,L:PRINT" "jiL=L+2 自動 的 に 入 いる 

1210 COLOR 5 = 


1220 LOCATE S,L:PRINT U$; RETURN 

i230 REM MEA MOVE 6 

1240 US =CHARACTERS (5,1) 

1250 IF (28 AND L<1é THEN SS=6:LL=-1:RETURN 

1266 LOCATE S,L:GOSUB 2266:SS5=6:LL=-1 6 コー ス 用 
1276 IF $217 AND L=5 THEN R=3:LL=6:GOTO 1366 

1280 IF $219? АМО L=3 THEN R=3:LL=6:GOTO 1308 

1290 IF S221 AND L=1 THEN R=3:LL=6:GOTO 1308 

1366 COLOR 5 

1310 LOCATE S,L:PRINT U$; : RETURN 

1320 REM ШИШ MOVE 5 ШЕШ 

1336 US=CHARACTERS (S, L? 

1340 LOCATE S,L:GOSUB 2200:$S=-1:LL=6 

1356 IF S22 AND し =1 THEN R=4:SS=@:GOTO 1416 

1368 IF S=4 AND L=3 THEN R=4:SS=6:GOTO 1410 5 コー ス 用 
1376 IF S=é AND L=5 THEN R-4:8S$-0:GOTO 1416 

{386 IF 8<11 OR S>12 THEN GOTO 1416 

1390 IF КОС THEN C-C*1:LOCATE S,L:PRINT" "j:LsL-Z 


スー パー・ ロ ロー リ シ グ ・ ク ラッ ジュ 


1400 IF K<C THEN C=C-1:LOCATE S,L:PRINT" ";:L-L«2 

1418 COLOR 5 

1420 LOCATE S,L:PRINT U$;:RETURN 

1430 REM ШЕШ MOVE 4 ШЕШ 

1448 US=CHARACTERS (S, L> 

1450 LOCATE S,L:GOSUB 2200:SS=0:LL=1 

1466 IF S=2 AND し =14 THEN R-5:LL-6:GOTO 1496 4 コー ス 用 
1478 IF 5-4 AND 1-12 THEN R-5:LL-0:GOTO 1496 

1488 IF 5-6 AND 1-10 THEN R=5:LL=G:GOTO 1496 

1498 COLOR 5 

1500 LOCATE S,L:PRINT U$;:RETURN 

1510 REM HEN MOVE 3 DBE 

1520 U$=CHARACTER$ (S, L) 

1530 LOCATE S,L:GOSUB 2200:SS=1:LL=0 

1540 IF $=36 AND L-16 THEN R=6:SS=0:GOTO 14686 

1550 IF S=34 AND L=12 THEN R-á4:8S-8:GOTO 1608 

1560 IF 5=32 AND L=14 THEN Б-6:55-0:60Т0 1688 3 コー ス 用 
1570 IF 5<18 OR S>29 THEN GOTO 1488 

1586 IF K<C THEN CsC-1:LOCATE S,L:PRINT" ";:LzL-2 

1598 IF КОС THEN C=C+1:LOCATE S,L:PRINT" ";:L=L +2 

1608 COLOR 5 

1610 LOCATE S,L:PRINT U$;:RETURN ・ 

1628 REM ID MOVE 2 

1638 U$-CHAÓRACTER$(S,L) 

1640 LOCATE S,L:GOSUB 2264:SS=8:LL=1 

1658 IF 6-32 AND 1-19 THEN Rs1:LL-0:G0TO 1486 2 コー ス 用 
1666 IF 5=34 AND L=21 THEN R-1:LL-8:G0TO 1480 

1670 IF 5-36 AND L=23 THEN R=1:LL=6:GOTO 1688 

1686 COLOR 5 

1590 LOCATE S,L:PRINT U$;:RETURN 


1708 REM SCORE Mimi 

1718 COLOR 7 

1726 SC-SC«*D:1F SC>HI THEN HI=SC 

1738 MUSIC"B9" スコ ア 表 示 
1748 LOCATE 30,4:PRINTUS ING"s8H4";HI 

1758 LOCATE 38, 6:PRINTUSING"###H#H" 5 SC 


1768 RETURN 

1778 REM BRI CRASH шы 

1786 COLOR 2 ) 
1790 LOCATE X-1, Y-1:PRINT "жжж" ; 


1808 LOCATE X-1,Y : РК 1МТ"жжж" 5 
1810 LOCATE X-1,Y*1:PRINT ox"; 
1820 SOUND 9,24:SOUND 1,38 

1830 SOUND 2,72:500М0 3,0 | ぶっ か っ た と き 
1840 SOUND 4,82:SOUND 5,28 

1858 SOUND 6,21:SOUND 7,&HCC 

1860 SOUND 8,16:S0UND 9,1% 
1870 SOUND1@, 16:SOUND11, 248 
1550 SGUND12, 50:SOUNDi3, ё 
1870 PAUSE 25 

1766 N-N-1:IF N-à THEN 1984 $ 
1910 GOTO 486 

1920 REM ШЕШ CLEAR 

1936 COLOR 7 

1948 BEEP: BEEP: BEEP 

1950 FOR 1=1 TO 26 1 面 ク リル アー し た と き の 処 理 
1950 GOSUB 176@:NEXT I 

1970 D=D+5:GOTO 468 

1980 REM EZ GAME OVER ЖЕ 

1998 COLOR 6 

2000 LOCATE 15,11 

2618 PRINT"GAME OUER"; 

2620 LOCATE 14,13 

2038 PRINT"TRY AGAIN ?"; ゲー ム オ ー バ パー し た と き 
2040 I$-INPUT$(1) 

2050 IF I$-"y" OR I$-"Y" THEN 14 | キー 入力 

2060 IF ІФ="п" OR I$-"N" THEN CLS:END 

20760 GOTO 2046 


2686 REM 

20980 IF X=S 
2100 IF X-S 
2110 IF Х=5 
2120 IF Х=5 
2138 IF Х=5 
2140 IF Х=5 
2150 IF V=1 


2178 CGEN 1 
2180 IF Р=2 


AND 
AND 
AND 
AND 
AND 
AND 


Ү= AND P=1 AND R 
Y=L AND Р=2 AND R 
Y=L AND P=3 AND R 
Y=L AND P=4 AND К 
Y=L AND Р=5 AND К 
Y=L AND P=6 AND К 


THEN 
THEN 
THEN 
THEN 
THEN 
IREN e 


THEN U-8:GOTO 478 ELSE IF Vs 
2166 REM YELLO CAR PRINT 


OR P=4 OR Pzé THEN PRINT 本 9 CHR$61) 


RAM, CG に する 


2198 CGEN Q@:RETURN —. — — — ROM, CG に する 
2260 REM RED 


2216 CGEN 1 


2230 CGEN 6: 


CAR PRINT 


RAM, CG に する 
2220 IF R=2 OR R=4 OR R= THEN PRINT# ら 6 CHR (3) 


ROM, CG に する 


2240 REM CHARACTER DATA 


| 
2250 BEE аннан енна ааш з» хны 


"88000000080000000") 


2260 DEFCHRS (2) =HEXCHRS ("E742FFFFFFFF4S2E7") +HEXCHRS C"a8600000000000000") *HEXCHRS ¢ 


* 9999999999999999" > 


2270 DEFCHR# (3) -HEXCHR$ (" 0808800808000000880 ") +HEXCHRS ("BOFFBDSCSCBOFFBD "> +HEXCHRS ( 


"6660660006066006") 


2286 DEFCHRS (4) -HEXCHR$ ("0800000000000800") +HEXCHRS ("E742FFFFFFFF42E7") +HEXCHRS C 


" 9999999999999999") 


2298 RETURN 


CHeart Soft] 


1776 
1776 
1778 
1776 
1776 
1776 
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ぶつ か っ た か どう か の 
判定 ルー チン 


THEN V=6:GOTO 526 


ELSE PRINTHO CHRS(2) ; 自分 の 車 を 表示 


ELSE PRINTHO CHR$% (4) ;— 敵 の 車 を 表示 


жэ #99 


16 
化学 反応 式 ・ 不 規則 動詞 の お 勉強 


GOOG ПЛ? ハン ナウ シキ リノ オペ ペン キョ リウ S608 
ж 5^4 1 t» №8 


ハン ナウ マエ いい SNO2*H20 
n»J5o23*n ? 


ИШ Heart Soft Corp. ШЕШЕ 


この 頃 マ イコ ン は 低 価格 に な っ C, 誰 に で も 気軽 に 手 に 入る こと が で 
きる よう に な り ま し た 。 LEL, マイ コン を 買っ て も ゲー ム ば か りや っ 
て いて か わい そう CT, たまには マイ コン で 勉強 し て みる の も いい の で 
は 7 この 2 つの プロ グラ ム は ほとん ど 同 じ 作 り に な っ て いて 。 メッ 
セー ジ , デー タ を 変え た た だ け で す 。 皆さん も プロ グラ ム を 作る と き は 前 


に 作っ た プロ グラ ム , 他 の 人 が 作っ た プロ グラ ム を 改造 し て 自分 専用 の 


プロ グラ ム を 作っ て みて は いか が で し ょ うか 7 打ち 込む と き は , E 
ちら か 一 方 を 打ち 込み , 他 は 変更 し て ゃ る だ け で 大 丈夫 で し ょ う 。 行 番 
号 も 共通 性 を 持た せ て お きま し た 。 まず , RUN させ ます と , タイ トル 
・ メ ッ セ ー ジ 出力 ・ 説 明 と 表示 され , 次 に 問題 が 出力 され ます の で , fS 
詞 は , 過去 , 過去 分 詞 を , 化学 は 反応 後 を 入力 し て 下さ い 。 間違え た 時 
+, 5 回 打ち 直し て 下さ い 。 5 回 打ち 直せ ば 覚え を る で し ょ う 。 ここ で は , 
ちゃ ん と 打ち 込ん だ か 判定 は し て いな いた め 適 当 に 打っ て も 次 へ 進め ま 
す 。 th, そこ は 本 気 で 覚 を た いか どう か の 差 だ と は 思い ます が …… 
問題 は 全部 で 10 問 で す 。 で は , が ん ば っ て 下さ い 。 
ー 92 一 
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プロ グラ ム 改 造 の ポイ ント 


デー タ の 数 は 動詞 で 63, 化学 で 45 で す 。 自分 で 新しい デー タ を た す と 
き は , 10 行 の DIM の 数 を 増やし , 30 行 の FOR 文 の 値 を 変え て 下さ 


e. ただし, デー タ の 数 が 多く な れ ば な る 程 ス ピー ド が 落ち ます 。 


変数 表 


A$ (n) づつ 現在 形 の デー タ 

B$ (n) 一 過去 形 の デー タ 

C$ (n) つ 過 去 分 詞 の デー タ 

D$, E$ 一 問題 の 入力 用 

D つ 正解 数 

К, I, リー ルー アプ 用 (FOR 文 で 使用 ) 
S $ つ 練習 用 


92+H20 
2нмоз+ мов 


== 
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tetee пт”? 


リン リウ ジリ キリ オペ ヘン ギョウ $9499 


ee 5"4 2 t» 8% 


リン リウ マエ リハ 2KMnOo4«5S02*2H20 
392° An ? K2804*2MnSO4*2HSO4 
n ン J*n ? № 


Liz пл? 


№2792“ 


nn ウリ トシ ラテ 


1*3 


マチ “エチ “スズ スズ ェ = 
Soft Corp. NENNEN 


リン リウ リキ リナ オペ ヘン キネ キョウ $949 


n K2804*2MnSO4*2 
5n4«a2*" ウチ ナオ ジ ナ サイ 。 


? a 


ENNN Heart Soft Corb. ШШШ 
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$66 フキ リク トウ シリ オペ ペン キョ ウ 0006 
ee 5*4 1 モン 8% 


リン サイ "4^ keep 772. 
эз 44 п? m 


EEENNN HEART SOFT Corp. ER 


te フキ ソフ ト “ ウ リリ オペ ヘー ニン キョウ $4499 


эз 74 made ) コ ファ ンジ n made #*х. 
リサ トリ ナチ ナ 5104 099710794. 


NENNEN HEART SOFT Corp- 


== 95 = 
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化学 反応 式 , 不 規則 動詞 共通 フロ ー チ ャ ー ト 


デー タ の 読み 込み 


5 回 打ち 直し を する 


10 問 に な っ た か 
YES 
結果 を 発表 
も 3 1 度 や る か 
NO 


зоол ышы. 
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КЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
КЕМж K Же 
КЕМж 444% カカ ナク ロン ノウ ノ オペ ドン キョ ウ 444 
КЕМЖ 

REN» ІСІ Copyright 1783% ЗЯ 
REMx 

РЕМЖ For SHARP-X1 Ву Heart Soft 
КЕМж 
КЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 

DIMAS (45), B$ (45) 

RANDOMIZE (TIME-30000>) Я 2 
FOR Ізі TO 45:READA$(CD,B$(D :NEXT I 一 一 一 デー タ を 読み 込む 


HEFELE 


FOR 1=1 TO 10:X=INT ¿RND (1) ж45) +1 ж 
CONSOLE 9@,25:MIDTH 46 

CLS 

LOCATE 4,2:PRINT"4é4 2/92 ハン ノウ シキ ノ オペ ペン キョ ヨウ +44"; 

LOCATE 5,22:PRINT"IMEHH Heart Soft Corp. MEEN"; 問題 の 出 カ 
LOCATE 12,4:РКІМТ"жж 2*4";Ij;"* жж"; 


@ LOCATE 19,8:PRINT"N ン ノラ マエ 0 "АФ; 
8 LOCATE 18,10: INPUT" ン ノウ № ";D$ *Ф &108 Ç BT 


6 IF D$-B$ OO THEN Р=Р+1:60ТО 176 

6 LOCATE 15,20:PRINT" マテ カド I?"Z. "j 間 違 が えた 時 

9 LOCATE 16, 12: 1МРУТ" №2 /2° № ";D$ 

8 IF D$=B$(X) THEN P=P+1:GOTO 176 

в GOSUB 290:50Т0 180 

6 LOCATE 13,20:PRINT" セイ カイ 2724 ";:60ТО 180 ———— 正解 の 時 

ü PAUSE 10:МЕХТ I * 

8 CLS 

0 LOCATE 4,2:PRINT"4444 カカ ドク ハン ノウ シキ ノ T^"2t22 $444"; 

8 LOCATE 5,22:PRINT"EEXEÜ Heart Soft Corp. ШШШ"; 結果 発表 

9 LOCATE 10, &:РЕІМТ" ФФ уул Nytta? 4"; 

LOCATE 5,12:PRINT" 772^ 1 9 モン チュ ウフ ";Р; "モンテ "キマ シク 。" 

8 LOCATE 8,14:PRINT" ж?1іһ” オペ ドン キョ ウシ マズ ス カウ" 

8 I$-INKEY$:IF I$-"" THEN 250 も う 1 度 や る か ? 
8 IF ІФе"у" ОК I$-"Y" THEN RUN キー 入力 

8 IF ІФ="п" OR I$="N" THEN CLS:END 

8 GOTO 256 

6 REM 

8 FOR J=0 TO 599:NEXT J 

@ CLS ei à 
8 FOR K=@ TO 250:NEXT К 間 赴 が えた と き の ル ー チ ン 
8 LOCATE 4,2:PRINT"4444 カカ バク ハン ノウ シキ ノ オペ ペン キョ ウ 600"; 


9 LOCATE 5,22:РКІМТ"ШИЫШ Heart Soft Corp. ШЫҒЫН; 


9 LOCATE 7,8:PRINT" №2/25° № ";В$ (OX); "2524" 正解 を 表示 


360 LOCATE 7, ід: РКІМТ "№ ツ ト シ テ SHAR ツ ウチ ナオ シナ サイ 。』『 

379 FOR K=1 TO 5 

380 LOCATE 10, 12+К 5 回 打ち 直す 

398 PRINT K;":";: INPUT S$ 

460 NEXT K 

418 RETURN 

1800 REM 

1618 DATA CaC03+2HC 1 , CaC 12+H20+C02 以下 反応 式 の デー タ 


1020 DATA NaHC03+HC 1 Мас 1 +H20+C02 

1830 DATA N2+3H2, 2NH3 

1048 DATA 2NH4C1+Ca (OH) 2, CaC12+2H20+2NH3 
1050 DATA 4NH3+502, 4NO+6H20 

1668 DATA 3NO2-*H20, 2HNO3+NO 

1678 DATA NaNO3+H2S04, Ман504 *HNO3 

1686 DATA 3Cu+8HNO3, 3Cu (NO3>2+4H20+2N0 
1870 DATA 4Р+502, 2Р205 

1188 DATA P205+3H2, 2H3P04 


18 DATA FeS+2HC 1 , РеС12+Н2$ 


1128 DATA МаН$03+Н2$04, NaHS04 *H20 *S02 
1128 DATA Cu+2H2S04, CuS04+2H20+S02 
1148 DATA 4FeS2+1102, 2Ғе203 +8802 
1150 DATA 2H2S+S02, 2H20+3S 

1160 DATA SO2*H20-*NO2,H2804-*N 
` 1176 DATA 2502%02, 2503 
1180 DATA 4НС1+Мпо2, MnC12+2H20+C12 
1170 DATA C12+H20, HC1+HC10 
1200 DATA 2KBr+C12, 2KC1+Br2 


1210 
1220 
1230 
1248 
1256 
1264 
1270 
1230 
1276 
1396 

316 
1326 
1530 


1348 


1378 
1466 
1416 
1426 
1436 
1446 
1458 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
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2К1+С12,2КС1+12 
CaF2+H2S04, Са504+2Н 

SiO2*4HF, 2H20+SiF 4% 

NaC 1 +н2504, Ман504 +НС 1 

Н2+С1, 2НС1 

HC 1 +NH3 МН4С1 

NaC 1 *NH3*CO2 *H20, NaHCO3 X *NH4C 1 
Ca(OH) 2*CO2, CaCO3*H20 
CaCO3+H20+C02, Ca (HC0352 
4A1+302, 2A1203 

2A1+S6HC1, 2A1C13+3H2 

га! +2Nae0H+2H20, 2МаА10=2+3Н2^ 
Fe203+2A1, 2Fe+Al203 
A1l203+6HC1, 241013+3H20 
A1203+2Na0H, 2Май102+Н20 

Al (OH) З +Масн, МайА102+2Н20 

2п+2 Маон, Ма22п02 +н2 
ЗА9+АНМОЗ, S69gNO03 +2н20+МО 

зна +8нмоз, зна (NO3 *4H20-*2NO 
SFe*4H20,Fez04«4H2 
2KMn04+4+5S02+2H20, К2504+2Мп504 +2н2504 
CóHó *HNO3, C6éHSNO2 *Hzü 
CHzCH*CH3-COQH, CH 
CHS3SCOOH+C2HSOH, CH 
CHS3COOC2HS +Майн, CH 


O-CO-CHS 
2Н5+Н20 


3CüQO0Na *CZHSÜüH 


$$$ pp°2 リン リウ リキ ナリ オペ ヘン キョ ウ 


&@@ 7-0 no っ ヒ " ョ ウ eae 


了 アナ タロ n 19 そ ンチ ュ ウ 6 モン ナチ “キマ ジラ = 
едік” オペ ペン キョ ウジ マス カマ 


ШШШ Heart Soft Corr. St 


R 


R 


R 
R 
R 
R 


очоод ролы 


REMK ШШШ フォ ソ ク ト “ウシ ノ ял" 7437 ШШШ 


REMK [CJCOPYRIGHT 1283 年 ЗЯ 
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КЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


ЕМж 
ЕМж 


ЕМж 

ЕМж FOR SHARP-X1 BY HEART SOFT 
ЕМЖ 
ЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
DIMAS (65), ВФ (65), СФ (45) 

RANDOMIZE (TIME) 
FOR Ізі TO 43: ВЕАР”АФ СІ), В$ (1), СФ (І) :NEXT I 

FOR 1=1 TO 19:X=INT(RND 1) る 3〉+1 ーーーーー 問題 の 決定 
COLOR 7:CLS 

LOCATE 4,2:PRINT"@@@@ フキ ンク トウ シノ オペ ドン キョ ウ $444"; 

LOCATE 5,22:PRINT"NENNNE HEART SOFT Corp. ШЕШШ"; | тіру 
LOCATE 12, 4:РАТМТ"жЖжЖ 2*4";I;"€*€» жж"; 

LOCATE 10,8:PRINT"7"29"4 FAN "уд Оу" 7"Z2."j 

LOCATE 18, 10:INPUT"p3 ケイ n";D$ 

LOCATE 18,12:1NPUT"5237^220";E$ 

IF D$:B$ OO AND ЕФ=СФ OO THEN Р=Р+1:60Т0 148 —— 正解 か ? 
LOCATE 15,28:PRINT"?v252*1I 2*2. ":GOSUB 26@:GOTO 158 

LOCATE 15,29:PRINT "セイ カイ 9"z2.":GOTO 158 

FOR J=1 ТО 1500:NEXT J:NEXT I 

CLS 

LOCATE 4,2:PRINT"@@@@ 7$`/2 КГ?) オペ ヘン キネ キョウ ett"; 

LOCATE 5, 22:РК МТ "mI HEART SOFT Corp. 93 結果 発表 
LOCATE 10,ó61:PRINT"é44é ケッ カ уБ? з? $84"; 

LOCATE 5,12:PRINT" 772^» 1 9 モン チュ ウ "SP3"EDF° жууда" 

LOCATE 8,14:PRINT" モウ 1 ト ヾ オペ ドン キョ ウ シマ スカ ヤリ 

I$2INKEY$:IF I$="" THEN 220 も う 1 度 や る か ? 
ТЕ I$2"y" OR I$-"Y" THEN RUN 

IF I$2"n" OR I$="N" THEN CLS:END 

GOTO 228 

REM 

FOR 2-1 TO S808:NEXT Z 

CLS 

FOR Кей TO 250:МЕХТ К 

LOCATE 4,2:PRINT"4é$4$ 71/7 トド ウシ ノ オペ ドン キョ ウ bbe"; Р 
LOCATE 5,22:PRINT" SRM HEART SOFT Corp. "3 正しい 答え 
LOCATE 5,8:PRINT" カ コ 74^ ";B$OO;" p32°22 № "СФ СК) р" FoR" 
LOCATE 7, 18:РАТМТ" М“ ツウ トシ テ SHA 24745794, "j 

FOR K=1 TO 5 

LOCATE 16, 12+K 

sepii 

= PETR 間 違 が えた と き の 
FOR K=1 TO 5 打ち 直し 
LOCATE 26, 12+К 仮 の 変数 

PRINT Ку": ";:1МРОТ 5% 

МЕХТ К 


X X NON 3 3 x 


0 REM 以下 動詞 の デー タ 
9 DATA Keep, Kept, Kept 

9 DATA sleep,slept,slept 

@ DATA feel, felt, felt 

8 DATA spell,spelt,spelt 

8 DATA buy; bought, bought 

8 DATA catch, caught, caught 

@ DATA fight, fought, fought 

@ DATA teach, taught, taught 

@ DATA think, thought, thought 
8 DATA сиё, cut, cut 

9 DATA cast, cast, cast 

9 DATA hit,hit,hit 

9 DATA let, let, let 

9 DATA put,put,put 

8 DATA set,set,set 

9 DATA shut,shut,shut 

9 DATA send; sent, sent 

9 DATA lend; lend; lend 
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1190 DATA speak, spoke, spoken 


1266 
1218 
1220 
1230 
1240 
1250 
1260 
1270 
1288 
1290 
1300 
1310 
1320 
1338 
1340 
1350 
1368 
1370 
1380 
1390 
1406 
1410 
1420 
1430 
1446 
1450 
1460 
1470 
1488 
1498 
15080 
1518 
1528 
1530 
1548 
1550 
1568 
1570 
1580 
15 ヶ 9 
1600 
1618 
1620 
1638 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


break, broke, broken 
lie, lay, lain 
choose, chose, chosen 
wear, wore, worn 
Sive, Gave; Given 
blow, blew, blown 
drive, drove, driven 
eat, ate, eaten 

до, went, Gone 

grow, Әгем» Grown 
Know, Knew, Known 
see, saw, seen 

take, took, taken 
throw, threw, thrown 
write,wrote,written 
meet, met, met 

read, read, read 
shoot; shot; shot 
sit,sat,sat 
di9,dug,dug 

find, found, found 
hear, heard; heard 
lose, lost, lost 
sell,sold;,sold 
shine,shone,shone 
stand; stood; stood 
stick, stuck,stuck 
tell, told, told 
win, won; won 

begin, began, begun 
drink, drank; drunk 
fly, flew, flown 
ring, rang, rung 
sing,sang,sung 
swim, swam, swum 

ао, did, done 

show, showed, shown 
saw, sawed, sawn 
shave, shaved, shaven 
say, ѕаіа, ѕаі сі 

lay, laid, laid 

Рау, раіа, paid 
таке, made, made 
have, had; had 
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ワン ポイ ント ・ テ クニ ッ ク 


PRINT 文中 に コン トロ ー ル キャ ラク ター を 入れ る 
— V 

SHARP-X1 の 兄弟 機 MZ-80 系 の BASIC に は , PRINT 3x iz [1] >° [C] 
な どの コン トロ ー ル キャ ラク ター を 入れ る こと が , で き て 便利 だ っ た の で す が , 
X 1 に は その 機能 が あり ませ ん 。 代用 する に は “CHR$ (n)' と し な けれ ば な 
な ら な か っ た の で す が , 便利 な 方 法 が あり まし た の で , ここ で 説明 し ます 。 

まず , POKE &H01A2, &HB 7 と し て 下さ い 。 CH THR PRINT б 
に よっ て し か 出 な か っ た コー ド を 直接 , 文字 列 や PRINT 文中 に 入れ る こと 
P, で きる よう に な り ま す 。 使 用 法 と し て は , [ESC] キ ー と [CTRL | キー を 押 
し な が ら , コン トロ ー ル コー ド に 対応 する キー を 押せ ば 良い 訳 で す 。 たとえば, 
PRINT 文中 に [ESC」+[ CTRL ]-[L] を 押す と , 人 し と いう キャ ラク ター が 出 て 来 
<, 実行 する と 画面 が クリ アー し ます 。 これ は , テン キー 上 部 の [CLR HOME | 
キー を 押し た の と 同じ こと に な る 訳 で す 。 こ の よう に し て , 6-1: 
と の 文字 や , KK な どの 文字 を 入れ る こと も , 同様 に 出来 ます 。 ここ で 注意 する 
СЕН, この よう に し て 入れ た 文字 列 な を ど を 、 プリ ンタ ー に 出力 する と , コン 
トロ ー ル コー ド と 理解 し て 異状 な 動き 方 を する と いう こと で す 。 十分 に 気 を つ 
け て 下さ い 。 な お , プリ ンタ ー が 異状 な 動作 を し た か ら と いっ て , プリ ンタ ー 
お よび X 1 本 体 が が こわ れる な ど と いう こと は 。, 一 切 あ り ま せん 。 


———————]S 


———————— 9. 
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FUEL TIME 


SPEED HIGHT 


ルナ ー・ ラ ンダ ー と いう と マイ コン ゲー ム の 中 で も 歴史 が あり キャ ラ 
クタ ー も 数 字 , 英字 し か な か っ た 頃 か ら あ る , スタ ー ト レッ ク に 並ん で 
古典 的 を ゲー ム で す 。 

最も 当時 は , リア ル タ イ ム で は な く 着 陸 船 の 高度 .。 スピ ー ド の 表示 だ 
け を 頼り に 燃料 を どれ だ け 使 うか を 考え な が ら 遊 ぶよ も の で し た が …… ‚ 

それ 以来 , 各 ゲ アーム メー カー か ら 同 名 の も の が 数 多く 出 ま し た 。 最近 
で は リア ル タ イ ム で 。 と て も きれ いな も の も 出 て いる よう で す 。 今 回 は 
一 応 リ アル タイ ム に 数 値 が 変化 し て いき ます 。 慎重 に や り 過 ぎる と 失敗 


に し ます の で Reo C F Sk. 
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17. ルナ ー ラ ンダ ー 
ゲー ム の 遊び 方 


操作 は , 0 一 9 まで の キー て で 行い ます 。 押し た キー の 量 だ け 逆 噴射 が 
行なわ れ , その 分 だ け FUEL が 減り ます 。 0 を 押せ ば 全く 逆 噴 射 は 行 
な われ ず , スピ ー ド は 加速 度 に 速く (なり, 5 キー を 押し た と き は , ТЕ 
月 の 引力 と つり 合っ て スピ ー ド は 変わ り ま せん 。 月 の 表面 に 達し た 時 に 
スピ ー ド が 土 15 以 内 で あれ ば 着陸 に 成功 。 そ れ 以 外 で す と こ な ご な に な 
っ て し まい ます 。 また, 着陸 する まで に 要 し た TIME が 少な を い ほ ど 
腕 が 良い と 言え を る で し ょ Э. 


SPEED HIGHT 
-14. [2] 
FUEL TIME 
2806 167 


Congratulations, You Landed Safely 


Do You Want Try Again?<(¥/N>8 


変数 表 


し ai A$ (0) ~A$ (5) 一 宇宙 船 デ ー タ 
X 0E H$ (1) -H$ (8) 一 地表 デー タ 
Pes um G $ー ネ ー 入 力 用 

TH つっ タイ ム 


IT ユル ー プ 用 
X, D, S つ 計算 用 仮 変 数 


=W= 


17. ルナ ー ラ ンダ ー 


R 


R 


R 
R 
R 
R 


00406 U шым 


530 
2;: 


КЕМж [С] Copyright 1983% 3 月 


17. ルナ ー ラ ンダ ー 


КЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


ЕМж ж 


КЕМЖ ШЕШ Lunar Lander Ver 1.0 EH ж 


ЕМж 


ЕМж 
ЕМЖ FOR SHARP-X1 Ву Heart Soft 
ЕМЖ 
ЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 

CONSOLE ай, 25:WIDTH 48 

FOR I=@ TO 49: ТАФ=ТАФ+СНЕФ (28) : МЕХТ 
CLS: 142 IS1POKE&H346, à 

GOSUB 1189:GOSUB 700 
PR INTCHR を (31) 

TH=@:T=9 変数 の 初期 化 
X@=25006 

VG@=-200:F=1:S=1 
GOSUB 3260 

GOSUB 11686 

PAUSE 3 


x KX x X 


RRS=INKEYS! IF (VAL (RRS) =й AND RRS="G") OR (UAL(RRS$2O4»0) THEN RsUAL (CRR$2— キー 入力 用 
T=T+R 0 一 9 まで の 間 


TH=TH+ 1 
А=5. 4X (1-. 2XR) 

X=V0 +. S*wA:X08=X0+X 

IF X@>@ THEN 196 
X-X-X0:F-8:X0-0 数 値 計算 用 
О-м/0жу0-гжхжа 

IF D>@ THEN 228 
р=-р:5=-1 
V@=SOR (D) KEKSGN OO 
821 

COLOR 4 

LOCATE 2,4:PRINTUSING "#####";VG 
LOCATE 8, 4:PRINTUS ING "H#HHH" 3X 度 
LOCATE 2,8:PRINTUSING "H#H##" 3 1208-Т 残り 燃料 
LOCATE 8,8:PRINTUS ING "##H#H4#" 5TH | 

GOSUB 55@:1Е Е=й THEN GOSUB 756:GOTO 800 

IF T>1200 THEN R=a:GOTO 148 

GOTO 116 

AS=CHRS (31) +CHRS (29) «CHR$ (29) +CHRS (29) «CHR$ (29) «CHR$ (29) «CHR$ (29) 
FOR Ізі TO 6:A$(0)-A$(0)*CHR$(1):NEXT I 

FOR 1=1 TO é 

А$ (1) =АФ (1) +СНВ$ CD) 

AS (2) «6$ (2) +СНЕ$ (146) 

AS (3) =A$ (3) «CHR$ CI 412) P = 

AS (4) АФ (4) +CHRS (1418) TéNOT-5 

АЗ (5) =A$ (5) +СНЕ$ CI +24) 

AS (6) =A$ (6) «CHR$ (1490) 

NEXT I 

CGEN 1:FOR 1=1 TO る iLOCATE 19,1«1 

COLOR7!PRINTH@ ӨФСІЗ; 

NEXT: CGEN @ 

LOCATE 9,1!PRINT" и; 

LOCATE @, 2:РЕ1МТ" | SPEED HIGHT |"; 

LOCATE 0,3!PRINT" | Er 

LOCATE 8, 41PRINT"| Id し ュー 

LOCATE 9,5iPRINT* J | 7-Я ЯМ 

LOCATE @,4:РКІМТ"| FUEL TIME |"; 

LOCATE @,7!PRINT" | 1"; 

LOCATE @,8!PRINT"| Zr 

LOCATE 0, 91PRINT* ————— — ———2À '; 

RETURN 

LOCATE 20,8:1F Бей THEN RETURN 

SOUND @,255:SOUND 1,255 

SOUND 2,255:SOUND 3,255 

SOUND 4,2551SOUND 5, 255 BORA OE 

SOUND 4,31 !SOUND 7, &HCE 

M=SQR (RX25) 

SOUND 8,M SOUND 9,M 

SOUND 10, M 

COLOR2: FOR 1=1 TO RYPRINT" ノ NYCHR (91) знае (29) 1CHRS (29) конне (295 гонке C29] 
NEXT 


スネ ピード 
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FOR I=R TO 1@:PRINT" "j CHR$ (29) ; CHR$ (29) CHR$ (29) ; CHR$ (29) ; CHR$ (312 ; : NEXT 
PRINTCHR$ (30) 3 CHR$ (30) ; CHR$ (30) ; CHR$ C302 ; 


逆 
460. PRINTCHRS (30) ; CHR$ (30) ; CHR$-(30) ; CHR$ (30) ;CHR$ (30) ; CHR$ (30) ; CHR$ (30) ; я 
678 SOUND 8,0 :SOUND 9,60 を 
é80 SOUND 1 9, 9 表 
490 FORIs1TO10:PRINT" "i CHR$ (29) ; CHR$ (29) ; СНЕ$ (29) ; CHR$ (31) ; CHRE (29) ; : МЕХТ:КЕ| Ж 
TURN 
780 CLS 
718 FOR 11=1 TO 14 


1426 
1636 
1646 
1858 
1050 
1978 
1080 
187a 
11868 
1116 
1126 
1136 
1140 
1150 
1166 
1176 
1180 
1190 
КФ с" 
1208 
R$" 
1218 
R$" 
1220 
R$" 
1238 
R$" 
1240 
R$" 
1258 
R$" 
1260 
R$ <" 
1270 


COLOR7:LOCATE RND (1) ж37, КМО C12X17: PRINT", " 星 を 表示 する 


NEXT I1 

RETURN 

Н=4.5:НФ (1)=" ":H$(2»z2".":H$(3»-"":H$ (4) =" m" } 地面 の デー タ 
НФ (5) = "ee" FHS (é) ="ш":Н$ (72 = "g" : H$ (8) = "М" 


LOCATE®@, 17:FORI=1T039 к 
N=INT (КМО (197) +1: IFABS (М-Н) >2THEN789 地面 を ラン ダム に 表示 する 
HzN:PRINTHS$ (H) ; : МЕХТІ : RETURN 
LOCATE 19,2:COLOR 7 
FOR 1-1 TO 1@:FOR J=@ TO &é:CGENI1:PRINT8O A$(J);:CGENG:PRINTAS$; :NEXT— F BAS PITS 
PRINTCHR$ (30) ; CHR$ (30) ; CHR$ (30) ; CHR$ (30) ; CHR$ (30) ; CHR$ (30) ; : NEXT 
IF V@<-15 THEN 890 
PRINT:PRINTCHRS (31) 3j CHR$ (31) j CHR$ (31) ; CHR$ (31) j CHR$ (310 ; CHR$ (315 ; 
PRINT"Congratulations, You Landed Safely":GOTO1G26 成功 
PRINT" "SCHR$ (31) ; CHR$ (29) ; CHR$ (29) S CHR$ (29) ; CHR$ (29) ; " "SCHR$ (29); 
PRINTCHR$ (29) ; CHR$ (29) ; CHR$ (29) 3 CHR$ (29) ; СНЕФ (31) ; " "j 
PRINTCHRS (31) ; CHR# (29) ; CHR$ (29) ; CHR$ (29) ; СНК$ (29) ;CHR$ (29) ;CHR$ (29) ; 
COLOR 2 
PRINT" Ы mdi"; CHRE (31) ; CHR$ (29) ; CHR$ (29) ; CHR$ (29) ;CHR$ (29) ;CHR$% (29); | ik gk 
PRINTCHR% (29> 5 CHR$ (29) ; CHR$ (29) ; CHRS (29) ; CHR$ (29) ; CHR$ (29) ; CHR$ (29) § 
PRINT" hiia - Шш" 
PR 1МТСНК$ (31> ;CHRS(3 19 
SOUND 8,255:90UND 1,15 
SOUND 2,255:80UND 3,36 
SOUND 4,255:SOUND 5,3 55 
SOUND 6,21 :80UND 7,&HDS 失敗 の 時 の 音 
SOUND 8,16 :SOUND 9, 16 
SOUND 10, 14 :$01№ 011,255 
SOUND12,44 :500М0 13,0 
50508 1686 
COLOR 7:PRINT:PRINT:PRINT:PFRINT" Do You Want Try aamin? YN I) д-да 
FRINT"M";CHRS$ 4295; : РОКІ = і Т0500: МЕХТ:РВІМТ" ";CHR$(27?)7j 
ОФ= ІМКЕҮФ <19) 
IF бФ= "у" OR G ま ="Y" THEN SOUND 7, 255: КИМ 
IF GS="n" OR GS="N" THEN CLS:POKE&H344, 1: ЕМО キー 入力 
GOTO 16848 
AA$-INKEYS$:IF AAS<>"" THEN THEN1 888 
RETURN 
REM 
FOR I=@ TO 5 
COLOR4:LOCATEO, 18: PRINT"Moon Lander Game Starts in";S-I;CHR$(29); 
PRINT" Secondes " スタ ー ト 時 の 
MUSIC"OSC" 秒読み 
PAUSE 19:NEXT I 
LOCATE@, 18:PRINT" "iR=0 
RETURN 
REM CHARACTER DATA 以下 宇宙 船 の デー タ 
DEFCHR$( 1) =HEXCHRS ("G060000000GG0G00") +HEXCHRS ("0000000800000000") +НЕХСН 
0000000000000000") 
DEFCHR$( 2) =HEXCHRS ("@000000000000000") +HEXCHRS ("g8000000000000000")+HEXCH 
восозсевавававае" > 
DEFCHR$( 3)-HEXCHR$("a80080006008600000") +HEXCHRS ("010307GF 00000000") +НЕХСН 
9193999E3F3F3F3F "> 
DEFCHR$( 4>=НЕХСНЕ$ ("0000000010701 GA") +HEXCHR 和 ("99B0COE999999999")+HEXCH 
9@98999E9FBFBFSFB") 
DEFCHR$( 5) sHEXCHRS("60000066OQGGOO000830") +HEXCHRS ("G000000000000000") +HEXCH 
@000000000000000") 
DEFCHR$( 6) =HEXCHRS ("0000000000000000")+HEXCHR$ ("g000000000000000") +HEXCH 
оозоввоавасаавов" › 
DEFCHR$( 7) =HEXCHRS ("@0G6000000000000") +HEXCHRS ("G088000080066000") +HEXCH 
обобововаваевова " > 
DEFCHR$( 8) =HEXCHRS ("800800808 1 020407") +HEXCHRS ("88000000600010200") +НЕХСН 
@000000001030707") 
DEFCHR$( 9) =НЕХСНЕФ (" 8087F5595252942FF ") +HEXCHRS (" 86800082A6ADAD6B6 00") +HEXCH 


КФ ("SF7F7FFFFFFFFFFF") 
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17. ルナ ー ラ ンダ ー 


1280 DEFCHR$ (10) -HEXCHR$ ("@6FC5452492824FF ") +HEXCHR も ("8999QBACB2D ア DB99") +HEXCHR 
$("FBFCFCFEFFFFFFFF "> 

1290 DEFCHRS (11) =HEXCHRS ("0600000600804 0E6"> +HEXCHRS ("üG80G 06080008000") +HEXCHR 
$("000080000080COED") 

18800 DEFCHRS (12) =HEXCHRS ("60080800606000080") +HEXCHRS (^O000000000000000") «HEXCHR 
$ < "ооовеововаеовова“> 

1318 DEFCHR$(13) -HEXCHR$ ("6060000000000000") +HEXCHRS ("0000000006600000") «HEXCHR 
*("0000000000060000") 

1320 DEFCHR$ て 14〉 =HEXCHRS ("80000000 60080080") +HEXCHRS ("03070F OF OF OF 0703") «HEXCHR 
$c"0000000000000000") 

1830 DEFCHRS (15) =HEXCHRS ("0000000000000000") -HEXCHR$ ("C3E7FFFFFFFFE7CS") «HEXCHR 
$("0000000000006000") 

1840 DEFCHR$ (16) =НЕХСНК®("@@й@йаййййййй@ййй"› +НЕХСНЕ$ ("C3ETFFFFFFFFE7C3") +HEXCHR 
$(i"0000000000860000") 

1858  DEFCHR$(17) -HEXCHR$ ("Qa 88000006000 200") +HEXCHRS ("COEGFGF GF @Е@Е@С@"› «HEXCHR 
$i"0000800000000000") 

1360  DEFCHR$(18) -HEXCHR$ ("6£086000806000000") -HEXCHR$ ("0000000000000000") +HEXCHR 
$ < "свововововевваав" > 

1370 DEFCHRS (19) -HEXCHR$ < "8000000000068 008" > +HEXCHRS ("060066600000G000") +HEXCHR 
*("0000000000000000") 

1380  DEFCHR$ (20) -HEXCHR$ С“йййй@@йАйлйА@ЕйА"› +HEXCHRS ("GF OF 8F0505051115")+HEXCHR 
$ ("1F1F2F2F4F4F9FFF "> 

1898 DEFCHR も を (21) =НЕХСНЕФ ("800080208182Е287"> +HEXCHRS ("FFFFFFOF7E7DGD798") +HEXCHR 
$ CFFFFFFFFFFFFFFFF "> 

1400 DEFCHR$(22) -HEXCHR$("86600687442427F 6 ") +HEXCHRS ("FFFFFF78BBDED8092 "> +HEXCHR 
$CFFFFFFFFFFFFFFFF "> 

1410 DEFCHRS (23) =HEXCHRS ("000000607 0909010") +HEXCHR# ("FOF OF 040605068E8") +HEXCHR 
$("FBFBFAFAF2F2F9FF") 

1428 DEFCHRS (24) =HEXCHRS ("06000600000000006") +HEXCHRS ("G080000G00000000") +HEXCHR 
*<("@000000000000000") 

1438  DEFCHR$(25)-HEXCHR$ (" 08000008088000808080")>+HEXCHR$ ("0000000660000000") +HEXCHR 
$("010102020404080F"> 

1440 DEFCHRS (26) =НЕХСНВЗ (" GAGAGGGOSF 000006") +HEXCHR® ("15151Е1Е@@ЗЕЗЕЗЕ "> +HEXCHR 
*("1F9FSF3F003F3FFF") 

1450  DEFCHR$(27)-HEXCHR$ ("S4F4G0GGFF 600800") +HEXCHRS ("7BOBFFFF&GFFFFFF ") +HEXCHR 
$("FFFFFFFF88FFFFFF "> 

1468 DEFCHR$ (28) =НЕХСНЕ® (" 15 148808FF 0088086") +HEXCHRS ("EAEBFFFF&GFFFFFF "> +HEXCHR 
$ ("FFFFFFFF00FFFFFF "> 

1478 DEFCHR$(29) =HEXCHRS (" 10800080FC000888")+HEXCHR% С"ЕВ7ВЕВЕВ@@ЕСЕСЕС ")+HEXCHR 
%("ЕВЕФЕАЕСФФЕСЕСЕЕ "> 

1488 DEFCHRS (39) =HEXCHRS ("G900000006000000") +HEXCHRS ("00000000G000000G") +HEXCHR 
$ ("80804040202010F0") 

14908 DEFCHR$ (31) =НЕХСНЕ$ ("60000000000000G0")> +HEXCHRS ("GG00000G3C3C7EFF") -HEXCHR 
("1112141800000000") 

1500 DEFCHR$ (32) =HEXCHRS ("800000030F G6000G"> +HEXCHRS С." 0200000300000000") +HEXCHR 
("96999999999@9agg9") 

1510 DEFCHR ま て 33) =НЕХСНКФ ("OFSFFFFFFF860800") +HEXCHRS (" BF3FFFFF80080000") +HEXCHR 
も て"99999 ロ 9999999999") 

1520 DEFCHRS (34) =НЕХСНВ$ ("F0FCFFFFFF000000 T) +HEXCHRS ("F GFCFFFFG9000006") +HEXCHR 
$("0000006000000000") 

1530 DEFCHR$(G5)-HEXCHR$ ("G000G0CGF 0000000") +HEXCHRS ("G00G00C0000G0000") +HEXCHR 
*("@000000000000000") 

1540 DEFCHR$(34)-HEXCHR$ ("0000000000G00G00") +HEXCHRS (" 8000080003C3C7EFF "> +HEXCHR 
$("B8848281800000000") 

1556 RETURN 
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YOUR SCORE ^ о ° . HIGHT SCORE 
NEM か イサ ナイ эруул 1° -c By Hear 


この ゲー ム は 海賊 の 隠し た 宝物 を 見 つけ 出す デ ゲーム で す 。 宝物 は タコ 
ツボ の 中 に 隠し て あり ,( 宝 を タコ ツボ の 中 に 隠す と は セコ ュ イ 話 で す が /) 
宝 は ダイヤ, 金 , 銀 で す が 空 の タコ ツボ も あり ます し 中 に は 本 物 の タコ 
が 入っ て いる 場合 も あり ます 。 回 り に は サメ が , うようよ し て いて (2 
匹 し か いま せん が ……。 ) 捉 ま る と 食べ られ て し まい ます 。 4 つ 宝 物 を 
見 つけ れ ば 次 の 面 に 進め ます が , ооло ThA Y RERA LEE 
か けら れ て し まい ます 。 4 つ 空 の ツボ を 開け て し まう と ゲー ム オ ー バ ー 
Cj. kB, この 人 間 は ワー プ を する こと が で き (人 間 が ワー プ で きる 
DP? と いう 人 の た め に , この 人 は 超 能 力 者 だ っ た と いう こと に し て 
お きま す 。) 3 回 まで 使用 する こと が で きま す 。 
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18. 海底 宝 さ が し 
ゲー ム の 遊び 方 


人 間 の 移動 は テン キー の 2—>(Т), 4039, 6—8), 8—(DC3. フル 


キー 側 の 方 は 使用 で きま せん 。 ツボ の ちょ う ど 上 に 来 た ら , 5 キー を 押 
す と ツ ポ を 開け る こと が で きま す が , きち ん と 真 上 に 来 な けれ ば 開 る こ 
と が 出来 ませ ん の で , 注意 し て 下さ い 。 ワ ー プ は スペ ー ス キー で す が , 
全く ラン ダム な 位置 に 出現 し ます の で ,。 サメ の 目 の 前 に 出現 し て , その 
まま 食べ らち れ て し まう 。 た いう こと に も な りか ね ませ ん 。 これ は 極力 注 
意 が 必要 で し ょ 3, 


vou ARE FINE!!! 


шиші 34: 


, , ,, LET'S TRY NEXT PATURN! et 
ШЫН リィ チイ 2) うす カジ y`la mm BY Hear Soft 


変数 表 


TSU (в) タコ ツボ 
X, HOA OX, YER 
Ха, X⑦② つ サメ の 区 座標 
I—FOR 文 で 使用 
H1 つ ハイス コア 
S— z = 
000 っ ワー プ 用 
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18. 海底 宝 さ が し 


[C] Copyright 1783 ЗЯ 


ШЕШ カイ テイ カラ サカ トシ Ver 1.0 ШШ 


КЕМЖ For PC-8991 Made By Heart Soft* 


WOWRKURWNH 
= 
š 


ж 


CONSOLE 0,25:WIDTH 4@:CLS 
CLICK OFF:RANDOMIZE (TIME? 


FOR I=0 TO 599iRN=RND て 1) :NEXT I 


DIM TSU(125, TT (12) :HI-8 


18. 海底 宝 さ が し 


初期 


SC20:X-0:H-20:Y20:G20:K120:K2-20:P20:X(12 =0:Х (2) 20100020: MMM-0:S-6 


CLS 
FOR 1=0 TO 12: TT<I>=@:NEXT I 
Х<12-:20:Х<22-20 


TSU (1) 221: TSU (2) 22: TSU (3) 24: TSU (4) 25: TSU (5) 23: TSU (6) =5 


FORI-1TO16060 


SWAP TSU ‹ІМТ (ВМО (1) жі 1) * 12, TSU (INT (RND (1911) +1) 


NEXTI 

COLOR 7 

FOR Ізі TO 2608 

LOCATE RND (12x39, RND (1) x23 
COLOR é:PRINT"," 

NEXTI 


LOCATE 60,23:PRINT"EUEM カイ テイ クタ カラ サザ サカ" シ 


Х= 2 :Y=3 :GOSUB 728 

X= 8 :\=3 :GOSUB 726 

Х=14 :Ү=3 :GOSUB 726 

X=26 :\=3 :GOSUB 720 

Х=25 :Ү-З :GOSUB 728 

Х=32 :Ү=3 :00508 720 

X= 2 :Y=13:GOSUB 720 

X= 8 :\=13:6054В 720 

X214 :Y-13:G0SUB 726 

X220 iY-13:G0S8UB 728 

X226 :\=13:60508В 726 

X232. :Y-13:GOSUB 728 

X210 :H=18 

COLOR 4 

FORI-1TOS 

JJ=RND C12xX37:KK = INT (RND C12 жа» 
LOCATE ЈЈ, КК+З:РЕІМТ" 44" 
LOCATE JJ,KK*4:PRINT"*A" 
LOCATE JJ,;KK+5:PRINT" 4" 
LOCATE JJ,KK*é:PRINT"*A" 
JJ=RND (1) ж37: КК= INT (RND (1) x4) 
LOCATE JJ,KK*3:PRINT"^*A" 
LOCATE JJ,KK*4:PRINT" AZ" 
LOCATE JJ,KK*S:PRINT"*A" 
LOCATE JJ;KK+é:PRINT" AZ" 
JJ=RND (1) X37 : KK=INT (RND (1) x45 
LOCATE JJ,KK*13:PRINT" AZ" 
LOCATE ЈЈ, КК+14:РКІМТ "ХЫ" 
LOCATE JJ,KK*15:PRINT" 4/" 
LOCATE JJ,KK*16:PRINT"*A" 
JJ=RND (1) *37!KK=INT (RND C12 x4) 
LOCATE JJ,KK*13:PRINT"*A" 
LOCATE JJ,KK*14:PRINT" AZ" 
LOCATE JJ,KK*15:PRINT"*A" 
LOCATE JJ, KK+1é: PRINT" AZ" 
NEXTI 


砂 を 200 個 出力 する 


YOUR SCORE ";5; 


LOCATE ё ,21:PRINT" 

LOCATE 28, 21:РАТМТ" HIGHT SCORE "ІНІ 
COLOR? 

LOCATE X,H IPRINT" 7 " 


LOCATE X,H*1 :РАПМТ" OX " 
LOCATE X,H*2 PRINT" ` " 
LOCATE X*10,H :PRINT" " 


= 


7“ Q ENE By Hear Soft"; 


} スコ ア 表 示 


人 間 を 表示 


タコ ツボ の 内 容 を 変え る 


タコ ツボ を だ す ル ー チ ン 


18. 海底 宝 さ が し 


628 
$38 
540 
650 
668 
670 
588 
590 
766 
716 
726 
730 
740 
756 
760 
776 


LOCATE X*9,H*1:PRINT" 
GOSUB 252@:GOSUB 2740 
FOR 1=0 TO 500:МЕХТ I 
IF ІМКЕҮФ (0) ="<" THEN 
IF ІМКЕҮФ (0) ="5" THEN 
IF ІМКЕҮФ (0) ="4" THEN 
IF ІМКЕҮФ (0) ="2" THEN 
IF ІМКЕҮФ (0) ="8" THEN 
IF ІМКЕҮФ (8) =" " THEN 
50706380 


GOTO 786 ) 

GOTO 1158 

GOTO-716 キー 入力 
GOSUB 3400 

50508 3496 

000=000+1:GOSUB 3070 


COLOR 2:RN=INT (RND (1) ж3) :LOCATE X, Y*RN: PRINT waaka" 
COLOR 2:LOCATE X,Y*1*RN:PRINT" JA. " 


COLOR 2:LOCATE X, Y*2*RN:PRINT" 449 Ih" 
COLOR 2:LOCATE X, Y*3*RN:PRINT"gIy/* 8" 


タコ ツボ 表示 


COLOR 2:LOCATE X,Y*4*RN:PRINT"NIEEIBL/" 
RETURN 

X2X*1:G6-2G*1: TFX く 1 OR 34 く <X THEN Х=Хх-1:6=6-1 
REM 

IF ІМТ(6/22-б/2 THENB19 ELSE 868 

COLOR7 

LOCATE X,H  :PRINT" NN " 


LOCATE X,H*1:PRINT" _ що " 


LOCATE X, Н+2:РАТМТ" ^ " 
5070900 

COLOR7 

LOCATE X,H  :PRINT" 


ノッ 


LOCATE X,H*1:PRINT" Mo " 


LOCATE X,H*2:PRINT" / 
60т0638 


Ņ & 


X2X-1:G82G8-1:IFX«41 OR S44X THEN Х=Х+1:6=6+1:60Т10638 


移動 し た 人 間 を 表示 


IF INT(G/2)=G/2 THEN 930 ELSE 788 
COLOR7 

LOCATE X,H PRINT" // " 

LOCATE X,H*1:PRINT" oM " 

LOCATE X,H*2:PRINT" N " 

GOTO 1626 

COLOR? 

LOCATE ХУН  :PRINT" N " 


LOCATE X,H*1:PRINT" 
LOCATE X,H*2:PRINT" 
5070630 


oH- " 
が が t 


IFH=@THENH=16:X=3:GOTO1@56 
IFH=16THENH=6: X=3 1 GHTD1 1 gg 


COLOR7 
LOCATE X,H  :PRINT" 


LOCATE X,H*1:PRINT" ABN " 


LOCATE Х, Н+2: РАМТ" 
GOTOé30 
COLOR? 
LOCATE X,H  :PRINT" 


x " 


о " 


LOCATE X,H*1:PRINT" ЖМ" 


LOCATE X,H+2:PRINT" 
GOTO 639 


IF X= 2 AND H=9 AND 
IF X= 8 AND H=6 AND 
IF X=14 AND H=6 AND 
IF Х=20 AND Н=0 AND 
IF Х=26 AND H=@ AND 
IF X=32 AND Н=0 AND 
IF X= 2 AND H=19 AND 


IF X= 8 AND H=1@ AND 
IF X=14 AND H=1@ AND 
IF X=2@ AND H=16 AND 


1250 IF X=26 AND H=16 AND 


IF X=32 AND H=16 AND 


х и 


ТТ(12-:0 THEN 80508 1298 
ТТ (2) =9 THEN 60508 1358 
ТТ 3) =й THEN GOSUB 1416 
ТТ (4) =й THEN 60508 1476 
ТТ (5) =#8 THEN 60506 1536 
ТТС) =08 THEN GOSUB 1596 
ТТ (7) =й THEN 60508 1656 
ТТ (8) =й THEN GOSUB 171й 
ТТ (9) =8 THEN GOSUB 1778 
ТТ(102-0 THEN GOSUB 1836 
TT(11»-0 THEN GOSUB 18968 
TT(12»-0 THEN GOSUB 1956 


判定 ルー チン 


IF МММ=5 THEN GOSUB 3356 


GOTO 638 
ТТ €15 21: МММ=МММ+ 1 


IF Т50 (1) =2 THEN GOSUB 2010:RETURN | 


IF TSU(1»-23 THEN 2120 
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1320 
1330 
1340 
1358 
1340 
1378 
1380 
1390 
1400 
1410 
1426 
1436 
1440 
1450 
1460 
1470 
1486 
1496 
1500 
1516 
1528 
1536 
1548 
1558 
1568 
1578 
1586 
1590 
1686 
1610 
1626 
1638 
1 る 49 
1659 
1666 
1676 
1688 
1678 
1700 
1718 
1720 
i730 
1740 
1756 
1760 
1778 
1788 
1790 
1866 
1810 
1820 
1836 
1846 
1858 
13866 
1876 
1886 
1878 
1980 
1910 
1920 
1930 
1940 
1956 
1968 
1970 
1788 
1778 
2060 


IF Т50‹1) =4 THEN GOSUB 
IF TSU¢1>=5 THEN GOSUB 
GOSUB 2246:RETURN 

ТТ (2) 21: МММ=МММ+ 1 

IF TSU(2>=2 THEN GOSUB 
ТЕ TSU(2»23 THEN 2126 

IF TSU(2»-4 THEN GOSUB 
IF TSU¢2>=5 THEN GOSUB 
GOSUB 2240:RETURN 

TT (3) =1:МММ=МММ+ 1 

IF TSU(3〉 =2 THEN GOSUB 
IF TSU(3»23 THEN 2126 

IF TSU(3〉) =4 THEN GOSUB 
IF TSU(3) =5 THEN GOSUB 
GOSUB 2249:RETURN 

TT (4) 21: МММ=МММ+ 1 

IF TSU(4»-2 THEN GOSUB 
IF TSU¢4)=3 THEN 2120 

IF TSU〈4〉 =4 THEN GOSUB 
IF Т30 (4) =5 THEN GOSUB 
GQSUB 2240:RETURN 

ТТ (S) 21: МММ=МММ+ 1 

IF TSU(5) =2 THEN GOSUB 
IF TSU〈(5) =3 THEN 2120 

IF Т50 5) =4 THEN GOSUB 
IF TSU〈5〉 =5 THEN GOSUB 
GOSUB 2240:RETURN 

TT <6> 21: МММ=МММ+ 1 

IF TSU (é>=2 THEN GOSUB 
IF Т50 (5) =3 THEN 2120 

IF TSU¢6)=4 THEN GOSUB 
IF TSU( る 〉 =5 THEN GOSUB 
GOSUB 2240:RETURN 

TT (7) =1:МММ=МММ+ 1 

IF TSU(7) =2 THEN GOSUB 
IF TSU¢7>=3 THEN 2120 

IF TSU¢7>=4 THEN GOSUB 
IF TSU¢7)=5 THEN GOSUB 
GOSUB 22480:RETURN 

TT «85 21: МММ=МММ+ 1 

IF TSU(8〉 =2 THEN GOSUB 
IF TSU(8»23 THEN 2120 

IF TSU(8〉 =4 THEN GOSUB 
IF TSU«8»-25 THEN GOSUB 
GOSUB 2240:RETURN 

ТТ <#> =1:МММ=МММ+ 1 

IF Т0 9) =2 THEN GOSUB 
IF TSU(?) =3 THEN 2126 

IF TSU(?»)24 THEN GOSUB 
IF Т50 9) =5 THEN GOSUB 
GOSUB 2240:RETURN 

ТТ (1685 = 1 :МММ=МММ+ 1 


IF TSU¢18)=2 THEN GOSUB 


IF Т50 410) =3 THEN 2128 


IF TSUX19〉)=4 THEN GOSUB 


2320:RETURN 
2426:RETURN 


2616:RETURN 
2320: RETURN 
2420: RETURN 
2018:RETURN 
2320:RETURN 
2428: RETURN 
2010:RETLURN 
2326:RETURN 
2420:RETURN 
20180:RETURN 
2320:RETURN 
2420:RETURN 
2010: ВЕТОВМ 
2320 :ВЕТОКМ 
2420: RETURN 
2010:RETURN 
2320:RETURN 
2420:RETURN 
2010:RETURN 
2320:RETURN 
2420:RETURN 
28010:RETURN 
2320:RETURN 
2426: КЕТОКМ 
2010: RETURN 


2320: КЕТОВМ 


IF 78019) =5 THEN GOSLIB 2426:RETURN 


GOSUB 2246:RETURN 
ТТ <11> =1 1 МММ=МММ+ 1 


IF TSU¢11)=2 THEN GOSUB 


IF TSU(11523 THEN 2126 


IF Т80 411) =4 THEN GOSUB 


2810:RETURN 


2320 :RETURN 


IF TSU¢C11>=5 THEN GOSUB 2426:RETURN 


GOSUB 2240:RETURN 
ТТ (125 =1 : МММ=МММ+ 1 


IF、TSU て 12) =2 THEN GOSUB 


IF Т50<122-3 THEN 2128 


IF TSU¢12>=4 THEN GOSUB 


2010: RETURN 


2320:RETURN 


IF TSU¢12>=5 THEN GOSUB 2420:RETURN 


GOSUB 2248:RETURN 
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各 タ コツ ポ の 中 味 に よっ て 
各 処 理 ル ー チ ン に 行く 


18. 海底 宝 さ が し 


2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2108 
2118 
2126 
2138 
2140 
2150 
2160 
2170 
2188 
2198 


2520 
2536 
2546 
2556 
2566 
2576 
2584 
2590 
2666 
2619 
2628 
2630 
2646 
2658 
2666 
2678 
2686 
2678 
27800 


. 海底 宝 さ が し 


REM 


FOR P=@ TO 26:FOR Т=@ TO opi ВЕЕР 1:МЕХТ T:BEEP 0:МЕХТ P 


LOCATE X,H*3:PRINT" 

LOCATE X,H*4:PRINT" " 

LOCATE X,H*5:COLOR &:PRINT "ШШШ" 
LOCATE X,H*é:COLOR 4:PRINT"2* — ル ルト NS" 
LOCATE X,H*7:COLOR &:PRINT "IHREN" 
LOCATE X,H*8:COLOR 8: PRINT" " 
LOCATE X,H*9:COLOR 0: PRINT" 

LOCATE 0,21:PRINT" YOUR SCORE ";5; 
IF SC=3 THEN 3200 ELSE SC=SC+1:RETURN 
FORP=9T0D39:FORT=9T0S : BEEP і : МЕХТ T:BEEPO:NEXTP 
COLORO :LOCATE X,H*3:PRINT" NB " 

COLORS :LOCATE X,H*4:PRINT" o " 

COLORS :LOCATE Х,Н+5: РЕІМТ" 45" 

LOCATE X,H+6:COLORS :PRINT "NN コン " 

LOCATE X,H*7:COLORS3 :PRINT" DD," 

COLOR 7 

LOCATE X,H*8:PRINT" ë 

LOCATE X,H*9:PRINT" ^ 

COLOR 1 :LOCATE X,H+@: PRINT" А " 

COLOR 1 :LOCATE X,H+i: PRINT" =H" 

COLOR i :LOCATE X,H+2: PRINT"BUIE/" : GOTO3276 
FORP = 9TO 1 9 :FORT=9TO1 : BEEP 1 : NEXT T:BEEPO:NEXTF 
COLOR S:LOCATE X,H+3:PRINT" " 

COLOR S:LOCATE X,H+4:PRINT" " 

LOCATE X,H+5:COLOR 5 :PRINT " ННІ 

LOCATE X,H*é:COLOR 5 PRINT" (Уң 

LOCATE X,H+7:COLOR 5 :PRINT" ИГИН 
LOCATE X,H*8:PRINT" " 

LOCATE X,H*9:PRINT" "S COLOR? : RETURN 
FORP-8TOZ6:FORT-6TO20: BEEP1: NEXT T:BEEP8:NEXTF 
LOCATE X,H+3:PRINT" 

LOCATE X,H*4:PRINT" " 

LOCATE X,H*5:COLOR 2:PRINT"4696ee" 

LOCATE X,H*4:COLOR 2:PRINT" が イセ" 

LOCATE X,H+7:COLOR 2:PRINT"€99ee" 

LOCATE X,H*8:PRINT" " 

LOCATE X,H*9:PRINT" ":COLOR7:S=S+200a 
LOCATE 6,21:PRINT" YOUR SCORE "3S; 

IF SC=3 THEN 3268 ELSE SC=SC+1:RETURN 


| 


“:COLOR7:S=S+1668 


タコ 表示 


ババ ズレ 表示 


ダイ ヤ 表 示 


FOR Р-0 TO 20:FOR T=@ TO 20:БЕЕР 1:МЕХТ Т:ВЕЕР giNEXT Р 


LOCATE X,H*3:PRINT" » 

LOCATE X,H*4:PRINT" ” 

LOCATE X,H*5:COLOR 7: РКІМТ "ИДЕ" 

LOCATE X,H*é:COLOR 7:PRINT"zJ" - 

LOCATE X,H*7:COLOR 73 PRINT'IBISIS" 

LOCATE X,H*8:PRINT" 

LOCATE X,H*9:PRINT" "sCOLOR7:S=S+S00 
LOCATE 0,21:PRINT" YOUR SCORE ";$; 

IF SC=3 THEN 3200 ELSE SCzSC-*1:RETURN 


REM 
IF X<X¢1) AND Н=@ THEN K1-21:G0TO2586 ] 
IF X»X(1» AND H=% THEN K1-1:G0TO026466 

P2 INT (КМО C12 x22) 

IF P=@ THEN K1=1:G0T02536 

IF P=1 THEN K1=1:GOTO2666 

IF X(1)<0 THEN Х‹1> =а:К1=6 

COLOR1 

Х‹1›=Х(1›-К1 

LOCATE X(1), @:FRINT " 4 p 

LOCATE X(12,1:PRINT " ^ni fud " 

LOCATE X(125,2:FPRINT " ЖШАШУУ " 

IF X(1)=X+1 AND Н=@ THEN 2966 


RETURN 

ІЕХ<12>38 THEN X¢1)=30:K1=6 
COLOR1 

X12 =X C1) *K1 

LOCATE X¢1>,@:PRINT " h. т 


LOCATE X¢1),1:PRINT " ДУ " 


ー114 一 


上 の 列 の サメ を 表示 


ゴー ルド 表示 


シル パー 表示 


18. 海底 宝 さ が し 


LOCATE X(1),2:PRINT " Av " 

IF X〈1) =X-5 AND H=@ THEN 2966 

RETURN 

REM 

IF Х<Х<2) AND H=10 THEN K2=1:GOTO280Ə 
IF Х›Х‹2› AND H=10 THEN K2=1:GOTO28Bg 
P =INT (RND (1) ж2) 

IF P=@ THEN K2=1:GOTO2800 

IF P=1 THEN K2=1:GOTO2880 

IF X(2)<@ THEN X(2)=0:K2=0 

COLOR 1 

X (2) =X (2) -K2 

LOCATE X(2),1@:PRINT " 4 " 
LOCATE X(2), 11:PRINT " МУХА " 
LOCATE X425,12:PRINT " MAAN " 

IF Х(2) =Х+1 AND Hs10 THEN 2968 下 の 列 の サメ を 表示 


RETURN 

ТЕХ (2) 230 THEN X(2) =39!K る =9 
COLOR1 

X (2) aX (2) ке 

LOCATE X(2)」191PRINT " à Ы 
LOCATE X(2»5,111!PRINT " hàm" 
LOCATE X(2»5,12!PRINT " Aman " 
IF X(2»)2X-5 AND Н=1@ THEN 2960 
RETURN 

REM 

LOCATE 0,20:PRINT STRING$(39," "5j 
TEMPO 120 


MUS IC"U1502CDEFGAB" 

LOCATE 10,20:!PRINT"772* サメ ニ FAS SLF 2242521"; 
LOCATE 0 ,21!PRINT" YOUR SCORE "}5; 
LOCATE 28, 21:РА1МТ" HIGHT SCORE ";HIj 
FORI=@T03060!NEXTI 
IS=INKEY$! IF 1$< 0CHRS (13) THEN3 646 

IF S>HI THEN НІ=5 

GOTO 58 

IF 000=>4 THEN RETURN 

LOCATE X,H  :PRINT" 8 

LOCATE X,H*1:PRINT" » 

LOCATE X,H*2:PRINT" Е 

Xs INT (RND (12 x37) 

I=INT(RND (1) ж2) 


IF I=@ THEN H=@ ー プ 用 処理 ルー チ > 
IF Ізі THEN H=18 人 間 ワ ー プ 用 処理 TS 


サメ に 食べ られ た と き 


LOCATE X,H PRINT" o " 
LOCATE X,H-*1:PRINT" ИШ " 
LOCATE X,H*2:PRINT" X " 


LOCATE 0,280:PRINT STRING$(39," ">; 
LOCATE 0,21:PRINT STRING$(G?," “>; 

LOCATE 9,2:PRINT" YOU ARE FINE!!!" 

LOCATE 7,21:PRINT" LET’S TRY NEXT PATURN!" › 画面 クリ アー し た と き 
PAUSE 20:SC=@:MMM=a 

IF S>HI THEN HI=S 

GOTO る 9 

РЕМ 

LOCATE 8, 10:ІРКІМТ"?272/ 222 ツ カ マ ッ テ シマ イマ シタ !" 

LOCATE 0 ‚21:РА1МТ" YOUR SCORE "}5; 

LOCATE 20,21:PRINT" HIGHT SCORE ";НІ; 

FORI=0TO3000:NEXTI タコ に 食べ られ た と き 
I$21NKEY$: IF 1$< >СНК$ (13) THEN3320 

IF S>HI THEN HI=S 


GOTO 58 
LOCATE 0,20:PRINT" タカ ラサ カシ YN 427 シマ イマ シタ "4 
LOCATE 8,211:PRINT" T?*-69 Nn シ "メル トキ nN $-3 4527227941 "SS ハズ レ が 4 回 出 た と き 


I$2INKEY$: IF 1$< >СНК$ (13) THEN337 9 
IF S>HI THEN HI=S 

GOTO 59 

IF H=1@ THEN RETURN 


== 


18. 海底 宝 さ が し 


3418 LOCATE X,H PRINT" " 
3420 LOCATE X,H*1:PRINT" н 
3438 LOCATE X,;H*2:PRINT" ii 
3446 H=1@:COLOR7 

3450 LOCATE X,H  :PRINT" o " 
3468 LOCATE X,H*1:PRINT" AN " 
34768 LOCATE X,H*2:PRINT" X " 
3480 RETURN ( 人 人間 移動 用 ルー チン 
3490 IFH=@THENRETURN 

3588 LOCATEX,H  :PRINT" ж 

3510 LOCATEX,H*1:PRINT" " 

3528 LOCATEX,H*2:PRINT" % 

3530 H=@:COLOR? 

3540 LOCATE X,H PRINT" o " 
3550 LOCATE X,H*1:PRINT" AN " 
3560 LOCATE X,H*2:PRINT" X " 
3578 RETURN - 
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19 
デモ (DEMO) 
(G-RAM 使用 ) 


SHARP X 1 の 機能 を フル に 使っ た プロ グラ ム を 作っ て み ま し た 。 
この プロ グラ ム は カラ ー グ ラフ ィ ッ ク を 使う 上 で の 基本 的 な 使用 法 が , 
ふん だ ん に 使わ れ て いま す の で 参考 に し て 下さ い 。 長い プロ グラ ム で す 
ж, そう むず か し いこ と で は な いと 思い ます 。 


プロ グラ ム の 行 番号 
1000—1190 

を 実行 する と 表示 さ 

れる 画面 。 


プロ グラ ム の 行 番号 
2000—2120 

を 実行 する と 表示 さき 

れる 画面 。 
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プロ グラ ム の 行 番号 
3000—3300 

を 実行 する と 表示 き 

れる 画面 。 


プロ グラム の 行 番号 


4000—4200 
を 実行 する と 表示 さき 
れる 画面 。 


プロ グラ ム の 行 番号 


5000—5040 
を 実行 する と 表示 さき 
れる 画面 。 
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プロ グラ ム の 行 番号 
5050—5080 

を 実行 する と 表示 さき 

れる 画面 。 


プロ グラ ム の 行 番号 
5090 一 5110 

を 実行 する と 表示 さき 

れる 画面 。 


プロ グラ ム の 行 番号 
5150—5180 

を 実行 する と 表示 さき 

れる 画面 。 


== 


19. FE 


プロ グラ ム の 行 番号 
5200 — 5340 
を 実行 する と 表示 さる 


れる 画面 。 


プロ グラ ム の 行 番号 
6000—6340 
を 実行 する と 表示 さき 


れる 画面 。 


プロ グラ ム の 行 番号 
7000 一 7460 

を 実行 する と 表示 さ 

れる 画面 。 
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1 ВЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
2 КЕМж ж 
3 КЕМж トス メメ ススム 】 РЕМО %%%%%% ж 
4 REMx ж 
5 КЕМж [CJ COPYRIGHT 1963ж 5A ж 
é КЕМЖ > 
7 КЕМж FOR SHARP-X1 By HEART SOFT ж 
8 РЕМЖ ж 
$9? БКЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


1666 REM 

1010 WIDTH 88:CLS 4:PALET 

1820 X=INT(RND て 1)※649) : Y2 INT (RND (12200) 
1030 FOR 1=0 TO 639 STEP 5 

1040 LINE (X, Y) - CI, 6005, PSET, 7 

1050 NEXT I 

1860 FOR I=0 TO 199 STEP 3 

1070 LINE (X, Y? - (439, I), PSET, 7 
1088 NEXT I 

1090 FOR 1-640 TO @ STEP -5 

1100 LINE (X, Y2 - CI, 122) , PSET, 7 
1118 NEXT I 

1120 FOR 1=199 TO 0 STEP -3 

1130 LINE (X, Y) - C0, I>, PSET, 7 

1140 NEXT I 

1150 FOR Ізі TO 3 

1168 FOR Ј=1 TO 7 

1170 PALET 7, (I*J? MOD7*1 

1180 PAUSE 5 

1198 NEXT JiNEXT I 

2000 REM 

2010 CLS 4:PALET 

2026 FOR І=0 TO 36 

2030 X1-2INT(RND(1»x328) 

2040 Y1=INTCRND (1)>*166) 

2850 X2=INT (RND (1) X32085 

28060 Y2=INTCRND (1) жі 00> 

2078 C=INTCRND (1) жў) +1 

2080 LINE (X1, \1> - (X2, Y2), ХОК, C, BF 
2090 LINE (439-X1, Y1» - (639 -X2, Y2), XOR, C, BF 
2100 LINE (X1, 199-Ү1) - (X2, 199 -Y2) , XDR; C, BF 
2118 LINE C63? -X1, 1?9-Y1» - C639 -X2, 199 -Y2» , XOR, C, BF 
2120 NEXT I 

3860 REM 

3818 CLS 4:PALET 

3020 LINE (0, 02 -(639, 199>,PSET,7,B 
3030 X=0:Y=0 

3040 FOR I-8 TO 1? 

3050 LINE (X, 02 - (639, Y), PSET, 7 
3860 Х=Х+32:\У=\+18 

3676 NEXT I 

3086 Х=639:\=8 

3090 FOR I=6 TO 1? 

3100 LINE (639, Y) - (X, 1??? , РБЕТ, 7 
3110 Х=Х-32:\=\+10 

3126 NEXT I 

3130 Х=639:\=19$ 

3140 FOR I=@ TO 19 

3150 LINE (X, 199) - (0, Y>, PSET, 7 
3160 X=X-32:Y=Y-18 

3178 NEXT I 

3180 X=0:Y=1?? 

3190 FOR I=6 TO 19 

3200 LINE(0, Y) - (X, 02, PSET, 7 

3210 XsxX«32:YzY-10 

3220 NEXT I 

3230 CSIZE 3 

3240 LOCATE 14,1@:PRINT#@ "SHARP-X1 7*-& ファ ログ ドラ る NO. 1" 
3250 LOCATE 14, 14:РАТМТНО " Ву HAERT SOFT" 
3260 FOR I=@ TO 5 

3278 FOR J=1 TO 7 
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PALET 7, (1+7) М007+1 

PAUSE 5 

NEXT J:NEXT I 

REM 

CLS 4:PALET 

Х=80 

FOR 1=1 TO 7 

POLY (X, 502,30, I, 144, 90,818 
Х=Х+ва 

МЕХТ 1 

х-ай 

FOR 1=1 TO 7 

POLY (X, 1885,30, 1, 60, 90,810 
X=X+89 

NEXT 1 

X=89・ 

FOR 1=1 TO 7 

POLY (X, 150), 30, 1, 98, 8, 810 
X=X+88@ 

NEXT I 

FOR 1=1 TO 104 

FOR J=1 TO 7 

PALET (1+7) М007+1, 7 
NEXTJ:NEXTI 

REM 

CLS 4:PALET 

FOR Ізі TO 20 

CIRCLE «RND (12448, RND (1) ж200), RND (1) ж100, RND C1) жу 
NEXT I 

CLS 4:PALET 

FOR Ізі TO 568 

L INE- (RND (12648, RND (12280) , PSET, RND (12 X7 
NEXT I 

CLS 4:PALET 

FOR Іші TO 58 

LINE - (RND (1) $48, RND (1) X200» , PSET, RND (1) X7, B 
NEXT I 

CLS 4:РАСЕТ 

FOR 1=1 TO 20 

L INE- «RND (12640, RND C12 X200? , PSET, RND (1) 7, BF 
NEXT 1 

CLS 4!PALET 

FOR 1=@ TO 500 

PSET (КМ (1) же40, ВМО (12 X208, RND (1) X7) 
NEXT I 

CLS 41PALET 

FOR I=@ TO 7 

LINE (0, 25x1) - (639, 25 (1412 - 12, РЗЕТ, 1, BF 
NEXT I 

FOR I=@ TO 7 

FOR J=1+80xI TO &0+80xI STEP 2 
LINE (2, 0)- (Jy 199), PSET, 7-1 
NEXT JINEXT I 

FOR Ізі TO 100 

FOR Js1 TO 7 

PALET (1+7) М007+1,7 
NEXTJ Ii NEXT1 

ВЕМ 

CLS 4!PALET 

FOR 1=20 TO 178 STEP S6 
CIRCLE (320, 100), 1,7 

NEXT I 

PAINT: 0, @›,1,7 

PAINTC 8,1992, 1,7 

PAINT? 6, 108>,2,7 

PAINT( 68, 186>,3,7 
PAINT (120, 108),4,7 
PAINT (180, 1805,5,7 
PAINT (240, 109), é, 7 
PAINT (388, 1009 , 7,7 
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PAINT (579, 1080), 3,7 
PAINT (639, 100); 2, 7 

PAINT (439, 092,1,7 
PAINT (639, 1995, 1,7 

FOR 1=1 TO 104 

FOR Ј=1 TO 6 

PALET &(I*J)MODé*1, J 

NEXTJ:NEXTI 

REM 

CLS 4:PALET 

DIM А(255), I (255) 

FOR 1=9 TO 255:ACI» 2191: ICI? 2-0: NEXT 
B1= 50:B2-100 

$1212 

FOR Y=-199 TO 1008 STEP 18 
B1-B1-2:B2-B2-1:H1-B1:U1-B2 

FOR X=-100 TO 199 STEP 2 

Н1=Н1+1:1Е X/S1=X¥S1 THEN り 1 = いり 1-1 
Z= (COS (X/109x3, 14) +1) ж(5ІМ (Ү/180ж3. 14) +1) жі8 
Р=5:1Е ІМТ (2) THEN P=4 

H=H1:V=V1-Z 

IF У<-1<(Н) AND U»-A(H) THEN 7456 

IF V>=I¢H) THEN ІН) =U 

ТЕ VLACH) THEN ACH) =Y 

PSET (HX4, Vx2, P) 


NEXT X, Y 
PAUSE 25 
RUN 


/ つ つつ 
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19. 


20 
三次 元 迷 路 


(G-RAM (使用) 


次 様 を 三次 元 の 世界 へ 御 案内 致し まし ょ う 。 マ イコ ン に よる 迷路 ゲー 
ム . は 数 多く あり ます が , ほとん どの も の が 迷路 を 空 高い と ころ か ら 眺 め 
て いる よう な 表示 を し て いる も の で し た 。 こ の プロ グラ ム で は 自分 自身 
が 迷路 の 中 に 入っ て し まっ た と き に 見 える で あろ う 光 景 を と を その まま ディ 
スプ レイ し て み ま し た 。 メ 迷路 は 完全 に ラン ダム で ,。 た ぶん 二 度 同じ の は 
出 て 来 な いで し ょ う 。 全 て BASIC で 書い て いま す の で , 他 の 機種 に 移 
植 す る の も 楽 で し ょ う 。 X 1 で は 横 0 639, 縦 0 一 199 まで で す 。 = 
こ を 変更 すれ ば 良い 訳 で す 。 た だ 迷路 の 中 へ , ほっ ぽ り 出す 訳 に は い 
ませ ん の で , 迷路 の 地図 を 見 る こと が で きる よう に な っ て いま す が , 
れ は 3 回 し か 使用 で きま せん の で , な る べく 見 な い 様 に し まし ょ う 。 


(ye 


(у 
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20. 三次 元 迷路 


ゲー ム の 遊び 方 


使用 する キー は , テン キー と スペ ー ス キー で す 。 テン キー で 前 後 左右 , 
スペ ー ス キー で 地図 を 見 る こと が で きま す 。 た だ 地図 を 見 た だ け で は 自 
分 が どちら の 方 向 に 向い て いる か が わか ら ず , 後 は , あな た の 記憶 し だ 
WCF, 無事 に 迷路 を 抜け 出す こと か 出来 る と 。 あな た を た た える メッ 
セー ジ が 出 ま す 。 


$$$ SHARP-X1 8-D Maze Ver 1.0 ФеФ 


O0000000000000000000 


タタ" イマ メイ ロリ ダク セイ チュ ウチ テー ズ 。 ェ = 


ジロ ラク オマ チク タラ タイ 。 


7b 15 


tet (C)Copyright 1983 By Heart Soft eet 


an 


20. 三次 元 迷 路 


変数 表 


еее SHARP-X1 3-р Maze Ver 1.6 $66 


アナ タラ ミコ トニ #4095 ター ョ ジュ ラ 93953. 


ALFRED 2*9*432* 


ラド ゃ ジュ ウラ 77° 50 $° 242*"n 2 HL 7799: 


tte (C)Copyright 1983 By Heart Soft ... 


М (n,m) 一 迷路 の 状態 
DL (n), DK (n) > 迷路 の 表示 用 
МК, NL, DK, DL 方 向 を 変更 する と き な ど に 


使用 する 
MP 一 残り MAD 数 
I, J つ FOR ルー プ で 使用 
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三次 元 迷 路 


ә 0 ~) 6 n L ONE 


- 
ae 


(9 {дз 
e 


ани 


КЕМ 

КЕМЕ» №2 S-Dimention Maze Veri. ШШ š 

REM d 

КЕМФ (C)Copyright 1783= 1 月 е 

REM^ LI 

REMe For SHARP-X1 By Heart Soft * 

REM ^ 

КЕМ $ 24444454564424504444444422444042444 

DIM M«21,272,DK (4), DL (32, HH 44») , HC (45 , асз80> ) 初期 
OPTION SCREEN 1: INIT"CRT: ":WIDTH4G 

CLS 4 

COLOR 7 

PRINT" $22- SHARP-X1 3-0 Maze Ver 1.8 %2% "; 

LOCATE 8,23 メッ セー ジ 出 力 
PRINT"44$ (CoCopyright 1983 By Heart Soft 44%"; 

LOCATE 5,3 


PR INIT "ララ ドイ マ メイ ロ ノ サク セイ チュ ウ テ ヾ スズ 。『 3 
6 LOCATE 12,12 
6 PRINT "シロ ラク 47?v322*94."; 
9 LINE (5,6) (33, 18), "X",7,B 
в FOR J=1 TO 4:READ НС (J>, DK (J>, DL (J> : NEXT 
8 DATA 38, -1, 06,25, 8, -1, 31, 1, 8,28, 8, 1 デー タ の 読み 込み 
6 MP=3:WK=6 


ü FOR К=1 ТО 21 STEP 2:РОВ L=1 TO 27 STEP 2:М«К, L2 =2:МЕХТ:МЕХТ 迷路 の 端 は 
8 FOR K=1 TO 27;:М<1,К> =1:М (21, К> =1:МЕХТ 4 i 
6 FOR К=1 TO 21:MCK, 1221:M€(K, 27) 21: NEXT 必ず ふさ く 


8 FOR С=15 TO 6 STEP -1 
& LOCATE 16, 15 
e PR 1NT "メイ ロ カン セイ マテ ドー アト リョ に ビ ョ 


8 КЕТМТ (RND (1) ※ ア ) ж2+35:1 = ІМТ РМО C1»x122»x243: IF RND(1>>。 THEN 240 

8 Z=INT (RND (1) ж4) :K=-Kx(Z>1)- (Z2 00 -2 DX (Z2 10 TL E -LX CZ42)5 - (2=2) -21ж(7= 35 

8 МСК, LO) 21:HK20:FOR H=1 TO 4:NK-K4DK(HÍX2:NUSLSDLOHDX*2 ° + レー 

6 IF NK<1 OR NK>21 OR NL<1 OR NL>27 THEN 288 迷路 作成 
8 IF MCNK,NL)=1 THEN 288 ルー チン 


@ HKzHK*1:HH CHK) =H 

6 NEXT: IF НК=8 THEN NEXT:GOTO 310 

8 H=HH CINT (RND (1) *KHK) +1) 

8 MCK+DK (H); L*DL (HD) 21: K =K+DK CH) X2: L =L +DL (H) x2:GOTO 240 
8 KsINT(RND 1) жё>жё+ё: L = INT КМО (1) ж13) X2 +2: TYzK-1: TX2L -1 
8 І=ІМТ (ЕМО C125xXó)x2«3:IF МХ20,12<>8 THEN 328 

8 IF M20, І2-8 THEN M(21, I» =Ü 

9 H=INT (RND (1) ж4) +1:55=Н-1:0К=ОК CH) : DL =DL ¿(H> 

0 IE=6:DE=1:D0K=DK (H) :DL=DL (H) : HIDTH 88:CLS 4 

8 IESIE+i: IF <К+1ЕЖОК>21>) OR (K+IEXDK<0) THEN 430 

9 IF (L+IExDL>27> OR (L+IE※DL く @) THEN 436 

9 IF INT(M(K* IEXDK,L * IEXDL» 5-0 THEN 366 

@ I1sIE*M(K* CIE- 12 XDK -DL, + CIE-12»*DL *DK) 7 05 

6 12=1Е+ M(OK * CIE- 12 «DK *DL, L+ CIE- 12xXDL -DK) «0; 

6 хХ1=320ж11/(11+2) : Х2=32йжІ2/ (12+2) 1 Ү=1б0жІЕ/ (ІЕ +2) :DE-6 
6 LINE (X1, 199-Y) - (639 -X2, 192 -Y) , PSETs 1 LINE (X1, Y) (639-X25 Y), PSET, 1 
6 FOR J=-1 TO 1 STEP 2:I-IE:IF DE<>G THEN 466 


8 IF ІМТ<МСК+ 1-1) жоК +Јжрі, + 1-1) жр -Јжркә) ) =9 THEN 1=1-1 

6 IF 1<=0. THEN 610 

6 15=1 s = 
8 1=1-1:1Р I<@ THEN 496 迷路 表示 


9 IF'INT(MOC* IT※ ポ DK+J ポ DL L4 エボ ポ DL -J ホ DK)) う く >9 THEN 470 

8 X12-(J520»5X639?-JXS32UXCIM*1»2/CI*32 :\У1=100ж<1+1>)/<1+3> 
8 X22-(J»00X639-J*S2UXIS/CIS*2) :У2=1вйж15/ (1S+2) 

6 LINE (X1, 19? -Y152 - X2, 197-2), PSET, 1 

8 LINE (X2, 129 -Y25 - (X2, Y2), PSET, 1 

8 LINE (X2, Y2) - (X1, Ү1),РЅЕТ, 1 

9 IF 1<0 THEN 610 

8 Хі=- (Ј>0) X639 -JXS20XI/CI*2) 

8 X2-2-(QJ»00Xó439-J*S2UXCI*t12/CI432 :Ү=1йӣж(1+1)/ (1+3) 

6 LINE ХІ, 197-Ү) - (X2, 199? - Y) , PSET, 1 

6 LINE (X2, 199-Y) - (х2, Y) , PRESET, 1 

6 LINE (X2, Y) - (Xi, Y) , PSET, 1 

8 IF 1<>8 THEN 466 

8 NEXT 

6 IS=INKEYS: IF I$-"" THEN 628 

@ IF I$2"2" THEN NK-sK-DK:NL-L-DL:NHsH*2:Q0Q-3:GOTO $76 
6 IF 1%-"4" THEN NK=K-DL?NL=L+DK:NH=H+12QQ=2:GOTO 678 | 


65@ IF I$(»"ó" THEN 708 
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666 
678 
686 
678 
766 
716 
720 
736 
746 
758 
760 
776 
780 
790 
866 
816 
826 
830 
840 
858 
866 
870 
886 
876 
9g9 
ヶ 19 
?20 
?38 
940 
958 
768 
978 
7868 
790 
1466 
1616 
1626 
1830 
1840 
1050 
1660 
1670 
1686 
1496 
1166 
1118 
1126 
1136 
1146 
1156 
1166 


20 


IF I$="6" THEN NK-K*DL:NLsL-DK:NHsH*3:GG-4 
IF NK>21 THEN 880 
IF M(NK,NL)?4»8 THEN 620° 
K=NK iL =NL iH=NH+ (NH >4) ж: А (АК) =QQ:WK=WK+1:GOTO 358 キー 入力 ルー チン 
Т=1:1Е I$<>"8" THEN 758 
NK-K*DK:NLsL*DL:IF NK>21 THEN 886 
IF М‹МК, МУ < >80 THEN 358 
K=NK し =NL ТА САК =1:К=ЫК+1:Т=Т-1:1Е T=@ THEN 356 
GOTO 718 
IF I1$<>CHR#(32) OR MP=6 THEN 624 
GOSUB 77@:PAUSE 59:GOTO 350 
MP=MP=-1:WIDTH4@:CLS 4:FOR K@=1 TO .21:FOR L@=1 TO 27 
COLORS 
IF M(K@,L@><>@ THEN PRINT" 8"; 
IF M¢K@,L@>=@ THEN PRINT" "j 
NEXT! PR INT! NEXT 
ВЕЕР: МАР 表示 
F2INT((L-14(K-1»X405/40) 
G= (L-1* (C 12x40) -F x48 
COLOR2 
LOCATE G,F:PRINT"4"; 
RETURN 
REM 
H=@:GOSUB 770 
FOR I=@ TO MKIB=AC1〉 COLOR 2:LOCATE TX, TY:PRINT'x"; 
BEEP:COLOR 7:LOCATE TX, TY:PRINT"x'; 
IF B>1 THEN SS=〈SS+B-1) ト MOD4 TTE 
QQ=@:IF SS<>INT (55/2) ж2 THEN QQ=1 脱出 まで の 経過 表示 
IF 00-1 THEN TX=TX+ (SS-2) 
IF QQ=9 THEN ТҮ=ТҮ+ (55-1) 
NEXT 
PAUSE 38 
WIDTH 48 
CLS 4 
COLOR7 
PRINT" 44% SHARP-Xi 3-0 Maze Ver 1.0 444 "j 
LOCATE 0,23 
PRINT"4449 (CoCopPyright 1983 By Heart Soft $44"; 
LOCATE 4,8 
PRINT'272à ミコ "トニ メイ ロカ ラ 8*»piy 2222, "j 
LOCATE 16, 12 
PR INT "オメ テバ トウ 3*9"472. "j 
LOCATE 2, 15 
PRINTIS oy ay 735 "jHK;"A* "р" "ST マフ PO "32-MPite4 $95) 脱出 し た と き の 
TEMPO 100 ダウ セー ジ 
A$-"G161G1E105C1048141G1B105C1D104F1F1F1F1F1" 
BS$="F1F1FIGIBIAIGIF1IDIDID1#D1H#E1E1E1E1" 
C$="F 1F1F105D1C104B1A1B105C 1048 10S5D1C1C1C1c1iCc1" 
D$-":E7F7G7E7" 
E$=":04C7C703B7G7" 
MUSIC A$*B$«D$ 


1170 MUSIC A$*C$4E*$ 


1186 
1190 
1206 


LOCATE 6,18 
PRINT"£?1h* ヤリ マス カタ (Y or №"; 
1%$= INPUTS ¢1> 


1210 IF I$2"y" OR I$z"Y" THEN RUN 


1220 


IF I$2"n" OR I$s"N" THEN CLS 4:END 


1230 0070 1299 
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三次 元 迷 路 


後書き 


後書き 


一 時 期 。 一 部 の 人 達 の も の で あっ た マイ コン , パソ コン が 最近 で は 広 
い 層 の 多く の 人 達 が 使う よう に な っ た の は , 大 変 喜ば し いこ と で あり ま 
+, 近頃 は , ゲ ダーム, シュ ミレ ーション , ビジ ネス 用 な どの 多く の パッ 
ケー ジ ソ フ トウ ェ ア か 出 て , 広範 囲 な 使わ れ 方 が 出来 る よう に な り ま し 
た 。 LL, Ri, 市 販 の パッ ケー ジ ソ フ ト は 汎用 性 を 持た せ て いる た 
bi, どう し て も 変更 し た い ぃ 箇所 が 出 て , BASIC 言語 を 習得 する に は , 
どの よう な 方 法 が 良い か 2" な どの 声 が 多い の も 事実 で あり ます 。 

BASIC 言語 を 覚え る 一 番 の 近道 は , 前 書き に も 書い た よう に , “習う 
ENA’ c, 本 書 の ダー ム プ ログ ラム を 入力 , 実行 し プロ グラ ム を 
変更 し て いく こと に より , オリ ジ ナ ル な プロ グラ ム に 作り 変え て 行く の 
が 能率 の 良い , 習得 方 法 に な る と 思い ます 。 ま た , ゲー ム ソ フ ト は 豊富 
に 揃っ て いる も の の 高価 で ある た め に , な か な か 入手 出来 な い の が 現状 
сў, 本書 で は , 約 20 の デ ゲーム プロ グラ ム を 集録 し て お り , 楽し むこ と 
が 出来 る と 思い ます 。 是 非 , 本 書 に より , ゲー ム を 楽し み , か つま た な た, 
BASIC 言語 の 参考 書 に し て いた だ き , 本 書 が , あな た の マイ コン ライ 
フ に 少し で も , 役に立て ば 幸い だ と 思い ます 。 

1983 - 9 月 
HART SOFT 
Y. TAKASE 
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